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COMPUTER PROGRAM FOR CALCULATION OF 
REAL GAS TURBULENT BOUNDARY LAYERS WITH 
VARIABLE EDGE ENTROPY 

By Lillian R. Boney 
Langley Research Center 

SUMMARY 

This report describes a computer program developed at NASA-LRC for 
the calculation of real gas turbulent boundary layers with variable edge 
entropy on a blunt cone or flat plate at zero angle of attack. The ana- 
lytical techniques employed and results obtained using the program have 
been previously reported in (ref. 42) NASA TN D-6217 • The details of the 
coding and operation of the program are discussed in the present report. 

The digital computer program is described in detail including the flow- 
charts, program code and instructions for use with sample input and output. 
The program is written in FORTRAN IV language for use on a CDC 6600 computer. 

An integral method is used to compute turbulent boundary layer. The 
method includes the effect of real gas in thermodynamic equilibrium and 
variable edge entropy. A modified Crocco enthalpy velocity relationship 
is used for the enthalpy profiles and an empirical correlation of the 
N-power law profile is used for the velocity profile. The skin friction 
coefficient expression of Van Driest, corrected for axisymmetric flow by 
a turbulent Mangier transformation is used in the solution of the momentum 
equation. The value of the local coefficient of skin friction is also 
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calculated using Spalding— Chi and Eckert’s theories. Heat— transfer 
2 predictions are obtained by use of various modified forms of Reynolds 
5 analogy . 

4 The program is written in FORTRAN XV language for use on a CDC 

5 6 000 series computer. 

6 Minimum machine requirements are TTOOO octal locations of core storage 

7 and three input tapes. 

8 The calculation of a typical case with 25 points on the body and 

9 four iterations required 260 seconds of CDC 6600 machine time. 
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INTRODUCTION 
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This report describes the analytical techniques employed in the cal- 
culation of the turbulent boundary layer with variable edge entropy on a 
blunt cone at zero angle of attack or on a flat plate. The description 
of theory was previously reported in NASA TN D-6217 (ref. 42) and is re- 
peated here for ready reference. 

In the section entitled Program Description a description of the 


function performed by each subroutine in the program is given. Flowcharts 
are provided for the more complicated subroutines. The descriptions of 
the subroutines are intended as a guide in relating the analysis and govern- 
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ing equations presented in NASA TND 6217 to the program described in the 
present report. 

The section entitled Input Description gives instructions on the 
preparation of input data for the computer program. Sample turbulent boundary 
layer flight calculations at an altitude of 60,000 ft. and flight conditions 
of approximately 19,000 ft. /sec. for a 13 ft. long, 5° half angle cone with 
a nose radius of .4 inch are used to demonstrate the use of the program. 

In the section entitled Output Description some of the results of this cal- 
culation are used to describe the form of the output data. 
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SYMBOLS 


area 

coefficients in equations (10) and (12) 
speed of sound 

average skin— friction coefficient "based on conditions 
at edge of boundary layer 

local skin- friction coefficient based on conditions at 
edge of boundary layer 

functions given by equations (20), (2l), and (22) 

Mangier transformation factor 

a dimensional constant to convert from slug/ft 3 to lbm/ff 5 

total enthalpy 

static enthalpy 

heat-transfer coefficient 

Mach number 

exponent in velocity-profile relation 
Prandtl number 
recovery factor 

local Stanton number based on conditions at the edge of the 
boundary layer 
pressure 

normalized heat- transfer rate 
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heating rate 

unit Reynolds number 

Reynolds analogy factor 

local Reynolds number based on surface distance x/r^ 
local Reynolds number based on momentum thickness 
dimensionless body radius 
nose radius 

dimensionless radius out to shock (entering stream tube) 

entropy 

temperature 

velocity along x/r 

n 

velocity along y/r^ 
surface distance 

normalized surface distance from stagnation point or 
sharp-cone apex 

distance from virtual origin of turbulent boundary layer 

normalized coordinate normal to wall 

correlation parameter defined by equation (8) 

exponent in equation (10) 

ratio of specific heats 

dimensionless boundary-layer thickness 
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2 


3 

6*/r 

n 

dimensionless displacement thickness 

b 

0/r 

n 

dimensionless momentum thickness 

5 

e 

c 

cone half -angle 

6 

P 

density 

7 

T 

shear stress 

8 

Subscripts 


9 

av 

adiabatic wall 

10 

e 

edge of boundary layer 

11 

i 

incompressible value 

12 

max 

maximum 

15 

R 

one of three regions in boundary layer, X, II, or III 

lb 

s 

shock conditions 

15 

t 

stagnation conditions 

16 

tr 

transition 

17 

V 

wall 

18 

00 

free-stream value 

19 

Primes denote evaluation at reference enthalpy condition of 

20 

equations 

(13). 
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PROBLEM DISCUSSION 

Thermodynamic Properties for a Real Gas 
The physical problem to be considered is that of a blunt body traveling 
in a homogeneous gas with known thermodynamic properties. The gas in which 
the body is traveling can be in any state of molecular excitation provided 
it is in thermodynamic equilibrium. For use in the present program the 
calculated \-alues of the thermodynamic properties of several gases have been 
spline fitted with cubics and the coefficients of the cubics have been 
stored on magnetic tape (TAPE10) by NASA-Ames Research Center. The 
subroutine RGAS described in reference 27 reads the tape, searches for the 
proper coefficients, and evaluates the desired properties. 

Inviscid Flow Field and Laminar Boundary Layer 
Prior to the turbulent boundary layer calculation, the inviscid flow 
field is determined by the Lomax and Inouye blunt— body and method of 
characteristics programs. {See refs. 27 and 3^-. ) The inviscid solution 
gives the first-order stagnation entropy flow property distribution along 
the body which is used as the initial estimate of conditions at the edge of 
the boundary layer. In addition, the shock shape r s / r n and entropy 
distribution along the shock are found from the inviscid solution. The results 
of the inviscid solution are first used to make a laminar boundary-layer 
calculation, with variable entropy, over the entire length of the body . 

(See ref. 35* ) 
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The initial use of the edge conditions from the variable-entropy 

solution for laminar flow enables the turbulent calculation to be completed 

in less time than the initial use of the stagnation entropy edge conditions 

directly from the inviscid solution. Subroutine CRRD reads the inviscid 

flow field from tapes generated by the Lomax and Inouye blunt body and 

method of characteristics programs. The laminar boundary layer program 

punches on cards tables of r s /r n and dimensionless shear as functions of 

x/r which are read as input to the turbulent boundary layer program, 
n 

Transition Region 

The turbulent boundary layer calculation is initiated at the point 
where transition has been determined to start (XMIN). The region from 
the end of the laminar flow solution to the point where the solution is 
considered to be fully turbulent (X2REX) is defined as the transition 
region. The velocity profile at the end of the transition region is 
printed in subroutine FOFX. 

Turbulent Boundary Layer 

The general method of calculation of the turbulent boundary layer is 
an iterative procedure which requires a calculation from the beginning of 
transition (XMXN) to the end of the body (XMAXTB(20)) to be repeated until 
the velocity at the edge of the boundary layer changes less than UERR from 
one iteration to the next. 
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The momentum integral equation (eq. 3) is solved by a variable step 
size fifth-order Runge Kutta numerical scheme (subroutine INT1A). The 
calculation of the integrals from the wall to the edge of the boundary 
layer (eq. 4, 5, 19) is by Gaussian quadrature (subroutine VGAUSS). 

Variable-Entropy Momentum Integral Equation 
The boundary-layer equations for the conservation of mass and 
moment um for application to a body of revolution at zero angle of 
attack are 


r r 

3pu — 3pv — 
r r 



(i) 


pu 



+ 




3t 

9 

r 


( 2 ) 
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where p = p(x) 
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and 
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Equations (l) and (2) are combined and integrated frcan the wall to 


the edge of the boundary layer. The resulting equations are cast in an 
integral form amenable for numerical integration as 
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S/r /dp g 

+ -La /Ji« -i£_ + 


du 


U J X p U , X 

— K e e d 


(3) 
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n> 


where 5* /r^ and 0/r^ are ^ e: ^i nei ^ "by 



(5) 


Equation (3 ) is similar to the well-known momentum integral equation 
(eq. (42), Ch. 9 of ref. 10 ), with the exception of the additional term 
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S/i 
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dp g 
e c 


du 


u 


a ^ °e u e a 

r n 
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For configurations with slight nose bluntness, a variable— entropy condition 
exists along the edge of the boundary layer. Therefore, the Bernoulli 
equation is not applicable and the previous term (eq. (6)) is added. 


Velocity Profile 


The velocity profiles used in the integral parameters (eqs. (4) and 
(5 ) ) were calculated from the N— ; power law relations : 



(7) 


The value of N was calculated from a correlation of data taken 
from references 11 to 24 and correlate as 


where 


N = 6.0 log z - 7-0 



( 8 ) 


The x /r used in equation (8) is the dimensionless distance frcan the 
vo n 

virtual origin of turbulent flow. The expression used to find the virtual 
origin distance on a cone is 
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e/3 
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r n 1.045 ^F 


where C /2 is the Spalding-Chi (ref. 7) average value of skin friction 
F 

and e/r is the local value of momentum thickness. 


Density Profiles 

The calculation of a density profile through the boundary layer is 
based on the assumption that the total enthalpy through the boundary 
layer varies as a function of u/u^ according to a modified form of the 
Crocco expresssion given by 


H - h 


H 


— h CL 

n? • ** * 8 


( 10 ) 


The total enthalpy at any point in the boundary layer is given by 


H - h + 


u 


( 11 ) 


When equations (10) and (11) are combined, the. resulting expression for 
static enthalpy is 

2 2 


‘"‘Nr + ( H e ' \)W + E r(t) 


u\°B 


u 


e 

2 


K) 


( 12 ) 


with 


where the coefficients A^ and B R and the exponent vary 

three regions of calculation through the boundary layer (denoted by 
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subscripts I, II, and III) which are as follows: 

Region I (wall) (0 < u/u g < 0.01). - The coefficients for the wall 
region as used in equation (12) are 


*1 


= 0 


H - h 

„ _ aw w 

B I " H - h 

e 


(H 

* ( K Pr) m 




- 1.0 


where the coefficient is derived from 


(13) 





combined with the energy equation, the Fourier conduction law, and the 
Colburn form of the Reynolds analogy. (See ref. 28.) The prime indicates 
that the Prandtl number is evaluated at Eckert's reference enthalpy which 
is 


H |OJ 
1! 

& 

( h w + h e) + °’ 22 l 

(h - h ) 
(aw e/ 

(15) 

where h =h +n(h — h) 
aw e r\ e e/ 

and N = 0.89 

r 

were used. 

The local N' 
Pr 


is found from table IV of reference 29 where the Prandtl number is tabulated 
as a function of temperature and pressures. The temperature used to deter- 
mine the Prandtl number in reference 29 is found from the real-gas thermo- 
dynamic tables as a function of h' (eq. (15)) and the local pressure p g . 
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Region III (outer) (0.1 < u/u g < 1.0). - The coefficients for the 
outer region (region III) as used in equation (10) are 

Am ' 0 
B m = 1 -° 

= Constant at a given x station 

The value of cl^_ varies linearly from an initial value (ALMIN) 
at the start of transition to A1X at the end of the transition region. 

Region II (intermediate) (0.01 < u/u^ < O.l). - Regions I and III 
are joined by an intermediate linear relationship which matches the 
region I (wall) equation at u/u g = 0*01 and the region III (outer) at 
u/u g = 0.10, where the coefficients used in equation (10) for the inter- 
mediate region are calculated from 

^TTT 

*11 -“-“n 

B m (o.i) aiII -B I (o.oi) 

II — (0.09) " 

“n * 1 ’° 

It should be noted that the boundaries of the three regions may be different 
from the values assumed herein. (See ref. 8 .) 
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The change in entropy at the edge of the boundary layer is determined 
from the entropy distribution along the shock. The variation in boundary- 
layer edge conditions due to change in entropy may be calculated by balancing 
the mass flow in the boundary layer with that entering the stream tube 
through the shock given by 



The expression for the shock radius is then given by 


(18) 


l.o 


r. p 
t e 


n 


p u f 

s e 5 I pu 

pur / p u 
K co oo n n e e 


r p __ _ 

n K co co n q 


5 y/r n 

— cos e 

r 5/r c . , , _ 

n a i n ' n I , ■" n 

ll -° — / d ^ n 


y/i 


(19) 


The value of the entropy at the edge of the boundary layer is found with 
r s / r n (from eq. (19)) from a table of shock radius and shock entropy from 
the inviscid calculation. 


Skin-Friction Calculation 

The calculation of the Van Driest II theory in reference 30 (described 
in detail in ref. 6) uses a Karman-Schoenherr incompressible skin-friction 
expression. The Karman-Schoenherr equation uses a transformed value of the 
local Reynolds number based on momentum thickness to obtain skin-friction 
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coefficient for the incompressible plane. The skin— friction coefficient 
for the incompressible plane is transformed to the compressible plane by- 
using an expression which is a function of M^, and and is analogous 

to the Spalding-Chi F £ function. (See ref. 7.) This analogous F c 
function is referred to as the "Van Driest XI F^ function and is given 
in reference 6 as 

0.l76M e 2 

F = . -1 . -l ft (20) 

c sin a + sin p 

where a and (3 are functions of Mach number and temperature ratio. 

(See ref. 6.) 

The general expression given in reference 7 for F c is 

F = 
c 



15 The F function given in equation (21) may be integrated by using 

e 

16 a real-gas variation of equation (12); however, the correct values of 

IT must be used. The ideal gas F c function used in reference 7 to correlate 

18 the skin-friction data is given by 



25 where as used in reference J, is equal to 0.89. Equation (22) was 

2k derived from equation (21) with the assumption of a linear Crocco relation- 
25 ship (that is, = 1.0). The local skin— friction coefficient obtained 
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from the turbulent— flat— plate theories from either reference 7 or reference 
6 must be corrected for application to a cone by the Mangier transformation 
factor (See equations 33, 34.) The local shin friction on a cone 

downstream of the end of transition is found from 


6) 


= F, 


Cone 


MT 


m 


Flat plate 


(23) 


where for fully turbulent flow 

= 1-176 (24) 

The value of the local coefficient of skin friction needed at each 

point of calculation in order to evaluate the right-hand side of equation 

(3) is determined from Van Driest IX (ref. 6) theory, calculated by use 

of a Reynolds number based on momentum thickness. Subroutine CFA also 

computes skin friction coefficient by seven additional method a; which are given 

in the output for comparison: (l) Van Driest II based on R gx , (2) Spalding-Chi 

based on R gx and ideal gas F c function, (3) Eckert's reference enthalpy based 

on R , (4) Eckert's reference enthalpy based on R , (5) Eckert's refer- 
6X eX MIN 

ence enthalpy based on R^q, ( 6) Spalding-Chi based on R^ and ideal gas F c 

function, (7) Spalding-Chi based on R g Q and real gas F c function. 


Transition Region Skin Friction 


The value of C^/2 in the transition region is assumed to vary as 
C^ C 

L\ + I | (1£ 

2 I. O +.Q‘n Vi -dr I \ O 

turb 


2 


2 l^ r 2 tanh ^ 


f fc) - fc) 1 

^ 2/ turb 


( 25 ) 
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Y = tanh i)r + tanh X 


X = i|r — 2f 


f 


r) 

nf 


turb 


n 


(r) -(r) 

n turb ' n tr. 


and \|f = Constant. 

The value of N in the transition region is assumed to vary as 


" = H tr + 2-tShT ("turb - H tr) 

where Y is the expression used in equation (25) and = 2.0. The value 
of is taken from the theoretical laminar calculation. The value of 

N at the end of the transition is calculated from equation (8) . 

The value of used in equation (12) varies linearly from an 

initial value (AEMUf) at the start of transition to cl^ = 1.0 (ALX) 
at the end of the transition region. 


Heat Transfer 


The local Stanton number is calculated from a modified Reynolds 
analogy in the form 


N St, e R AF 


(27) 
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where R^, is the Reynolds analogy factor. The value of the R^, depends 

on which local turbulent skin— friction theory is used. If the Van Driest II 

(ref. 6) is used for heat transfer, the Reynolds analogy factor is a function 

of h /H as listed in table I and for the Spalding-Chi skin-friction theory 
w e 

(ref. 7), R„ = y 7575 ■ 

(»Pr ) /5 


TABLE I . - VARIATION OF REYNOLDS ANALOGY FACTOR WITH h w /H e 


h /H 
w' e 

AF 

h 

r < °- 2 
e 

1.0 

h ' 

0.2 < < O.65 1 

*— n — 

€ 

h /h \ 2 

0.8311 + 0.9675 ^ - 0.6142 

r > 0-65 

e 

1 ....... ....... 

i 

1.2 

1 - .... 


The value of NT is taken from tables of Prandtl number given in 
Pr 

reference 29 evaluated at h’ (see eq. (15)) and the local static pressure. 
The local heat— transfer coefficient h is calculated from 


h = N. u p 
St, e e'e 


(28) 


The heating rate q is calculated from 


q = h/h - h ) 
^ \ aw w/ 


( 29 ) 


where h aw = h e + N,(H e - hj where N r - O.89. 
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1 


The variation of the wall shear is calculated from 


T w = - 2 p e u e 


Transformation of the Local and Average Turbulent Skin 
Friction from a Flat— Plate to a Sharp-Cone Value 

Local Skin Friction 

The general form of the Mangier transformation factor F (see ref. 

MT 

41) converting local flat-plate skin friction to a sharp-cone value is 

r- _ l/n 


r„ \n — 1 


'MT C, 


Cone 


Flat plate 


r Ir / 
n' n' 


n/r,_ \n~l 


f n /fb\ 

0 l r n/ 


When the Blasius form of the turbulent skin friction for a' flat plate 

C f 05 E e,x _l/n » 

is used, with n = 5 - 0 , along with the assumption of turbulent flow over 
the entire cone, the resulting Mangier transformation factor is 

f mt = x - 176 (33 


In the region of fully turbulent flow, the F^ = I.I 76 (eq. (33)) 
was used for the calculations in which the Van Driest II skin— friction 
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theory was used. When the Spalding-Chi skin— friction theory was used, 

an alternate variation of the F wm was used which took into account the 

MT 

transition from a laminar F to a turbulent ( 1 . 176 ) in 

the form 





(34) 


where 


P = 


0.309136 

(r) -(r 2 ’ 

\ n/ ' n t 


The 


^x^/r n | term was evaluated at the beginning of fully turbulent 

flow from equation ( 9 ) and the ( x / r n ) was evaluated at the end of 

' unax 


the cone. 


Average Skin Friction 


The ratio of the average skin friction on a sharp cone to that on a 
flat plate is 



( 35 ) 
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where L is a constant and is the same for the flat plate and cone. When 
equations (32) and (33) are substituted into equation (35) and the indicated 
integration is performed, the resulting ratio of the average skin friction 
on a cone to that on a flat plate is 

Cone 

— = 1.045 (36) 

C F 

Flat plate 
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• PROGRAM DESCRIPTION 

The turbulent boundary layer program is written in FORTRAN IV. The 
various portions of the program, the main program D3340 and subroutines, 
are given. The function performed by each subroutine is explained. 

Flow charts are provided for the more complicated subroutines. A FORTRAN 
listing is given for each subroutine. Library subroutines DIF for 
differentiation, DISCOT, UNS, DISSER, LAGRAN for interpolation, and INTIA, 
VGAUSS for integration are used. A description of these subroutines 
is included in the appendix. 

An alphabetical listing of Subroutines with the calling programs 

written in parentheses. 

D3340o- Program D33^0 computes the equilibrium gas compressible turbulent 
boundary layer over blunt cones or flat plates including the effects of 
variable entropy. 


NASA- Langley .Form 22 (Apr 69) 


22 
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2 

5 AL3CAL . (D33U0, DERSUB) 

4 Subroutine AL3CAL computes coefficients B , A^ for use in 

5 the calculation of density profiles. 

6 CFA* (D33^0) 

7 Subroutine CFA computes skin friction coefficient by seven methods — 

g Van Driest (R ), Spalding-Chi I (R ), Eckert's reference enthalpy (R ), 

Q Eckert's reference enthalpy (R ), Eckert’s reference enthalpy (R Q ), 

eX MIN e0 

10 Spalding-Chi I (R e0 ), Spalding-Chi II (R ) , 

22 CFCAL . (DERSUB ) 

ip Subroutine CFCAL computes the VanDriest II F function to correlate 

c 

25 the skin-friction data. 

24 CHECK . (D331+0) 

25 Subroutine to be used by INTIA to allow certain logical control. 
l6 ■^ l ^ ie control is not desired in this case and a dummy subroutine is 

27 inserted. 

18 CMT . (CFA) 

29 Subroutine CMT computes Mangier transformation factor for VanDriest 

20 and Eckert’s skin- friction coefficient. 

21 CMT1 . (CFA) 

22 Subroutine CMT1 computes Mangier transformation factor for Spalding- 
25 Chi skin- friction coefficient. 

2k CRRD . (D33U0) 

25 Subroutine CRRD reads inviscid flow field from tapes 15, 16, 22 if 

CARD = 0 is input. This subroutine computes tables of x/r , r, /r , 

n* b f n 
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2 

, s, p, on body and r Jr , s on shock. 
j s n 

4 DELITR . (dersub) 

5 Subroutine DELITR computes boundary layer thickness for cone or 
g flat plate and displacement thickness for flat plate. 

7 DERSUB . (D3340) 

q Subroutine DERSUB evaluates the derivative of the variable entropy 

2 momentum integral equation. 

10 £ 11 - (D3340) 

11 This is a function subprogram which differentiates the function at 

12 ai *y given point in a table of supplied values. 

13 PISCOT . (D3340, CFA, DERSUB, EDGE) 

14 Single or double interpolation subroutine for continuous or dis- 
1<3 continuous functions . 

16 DISSER. (DISCOT ) 

17 Library subroutine used by DISCOT, 

18 EDGE - (D3340, DERSUB) 

19 Subroutine EDGE computes the initial conditions at the edge of the 

20 boundary layer using the results of the inviscid solution and the 

21 laminar boundary layer calculation. 

22 POFX . (DELITR, START) 

23 Function subroutine FOFX computes integrals in the boundary layer 

24 equations for conservation of mass and momentum. 

25 
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FOFZ . (CFA, CFCAL) 

Function subroutine FOFZ computes the ideal gas F function to 

c 

correlate the skin- friction data. 

FOFZA . (CFA) 

Function subroutine FOFZA computes the real gas F^ function to 
correlate the skin-friction data. 

INPN2 . (D3340) 

Subroutine INPN2 reads NAMELIST $N2 if CARD =1. is input. Given 

cone angle, shock angle, constant pressure and entropy this subroutine 

computes tables of x/r , r /r , s, p on body and r /r , s on shock. 

non s n 

INTLA . (D33U0) 

INT1A is a closed subroutine for the solution of a set of 
ordinary differential equations. 

LAGRAN . (DISCOT) 

Library subroutine used by DISCOT, 

RFCAL . (CFA) 

Subroutine RFCAL computes Reynolds analogy factor for VanDriest 
skin-friction theory. 

RFCAL1 . (CFA) 

Subroutine RFCAL1 computes Reynolds analogy factor for Spalding- 

Chi and Eckert’s skin-friction theories. 

RGAS . (D3340, EDGE, RGASH , RGAST) 

Subroutine RGAS computes the thermodynamic properties for a real 


gas. 
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1 RGASH. 


(CPA, EDGE, FOFX, FOFZA) 


2 Subroutine RGASH computes thermodynamic properties density, speed 


3 of sound, temperature and entropy given pressure, enthalpy and an esti- 
4- mate of entropy, 

5 RGAST . (D3340, EDGE) 

^ Subroutine RGAST computes thermodynamic properties density, speed of 

7 sound, enthalpy and entropy, given pressure, temperature and an estimate 

8 of entropy. 

9 ROLL . (RGAS) 


±u Subroutine called by RGAS to position TAPE10 to proper file for gas 

properties. 

12 SERCH . (RGAS) 

^ Subroutine called by RGAS to locate information for gas properties. 

14 START . (D3340) 

Subroutine START computes initial values of boundary layer thickness , 

16 

displacement thickness, momentum thickness, skin-friction coefficient. 


UNS * (DISCOT) 


18 

19 

20 
21 
22 
23 


Library Subroutine used by DISCOT. 

VANDCF . (CFCAL) 

Subroutine VANDCF computes the VanDriest II skin— friction coefficient 

using Reynolds number based on momentum thickness. 

V GAUSS . (CFA, CFACAL , DELITR, START) 

To compute the integrals f 0 F. (x) dx for i - 1, 2, 3, , number. 

8 > 1 


2k TOTS. (CFA) 

25 

Subroutine WRTS computes heat transfer coefficient and heating rates 
based on each skin-friction theory and prints output. 
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A Flow Diagram of D33^0 by Subroutines Called 
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1 


2 Fortran Subroutines and their functions with flow charts 

3 D3340 . -Program D3340 computes the equilibrium gas compressible turbulent 

4 boundary layer over blunt cones or flat plates including the effects of 

5 variable entropy. The boundary-layer equations for the conservation of 

6 mass said momentum are combined and integrated from the vail to the edge 

7 of the boundary layer. Prior to the boundary-layer calculation, the invis- 

8 cid flow field must be determined. The Lomax and Inouye blunt-body and 

9 method-of-characteristics programs were used to make this determination. 

10 (See refs, 2T and 34.) The inviscid solution gives the first-order stag- 

11 nation entropy flow property distribution along the body which is used as 

12 the initial estimate of conditions at the edge of the boundary layer. In 

13 addition, the shock shape r /r and entropy distribution along the shock 

14 are found from the inviscid solution. The results of the inviscid solution 

15 are first used to make a laminar boundary-layer calculation, with variable 
1^ entropy, over the entire length of the body. (See ref. 35.) The turbulent- 

17 boundary-layer calculation is initiated at the point where transition has 

18 been determined to start (XMIW). The initial edge conditions used in the 

19 turbulent -boundary-layer calculation come from the laminar solution. 

20 The mom entum integral equation (eq. 3) is solved by a variable-step- 

21 size fifth-order Runge-Kutta numerical scheme. The iterative procedure 

22 

23 

24 

25 28 
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2 

requires a calculation from the beginning of transition to the end of 

3 

the body to be repeated until the velocity at the edge of the boundary- 

layer changes less than UERR from one iteration to the next. 

5 

Skin friction, heat transfer coefficient and heating rate are 

6 

calculated by VanDriest II theory with Reynolds number based on momentum 

7 

thickness. In addition, skin-friction, heat transfer coefficient and 

8 

heating rate are calculated by Spalding-Chi and Eckerts reference enthalpy 

9 

theories with Reynolds number based on surface distance or momentum thickness. 

10 

These additional skin-friction theories are not used in the calculation of 

11 

the momentum equation but are printed output from the program. 

12 

The velocity profile through the boundary-layer at the end of tran- 

13 

sition (X2REX + .01) is printed output from the subroutine FOFX. 

14 

The thermodynamic properties for a real gas in thermodynamic equili- 

15 

brium are calculated by the RGAS subroutine described by Lomax and Inouye 

16 

(ref. 27). The RGAS subroutine requires the use of TAPE10 which contains 

17 

on file 1 the information for Nitrogen and on file 2 the information for 

18 

Air, T < 27 000°R . 

19 

A max imum of 160 stations along the body may be retained in a block 

20 

of common storage. This block is replaced in the course of each 

21 

iteration. Thus, values from the final iteration are available at the 

22 

end of the program and the user may call his own plotting program for plots 
of X, N, R e0 , C f/2 , M, 5, 6*, 0, h/H, R ex , S/S T , u/u m , p/p w , q/q*, VV 


25 
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Bead Namelist |Nl| input 
Write Namelist |Nl| input 



[set up log tables of Spalding-Chi (Table 7) 


F C_, F_ R 
c f* Rx x 


F ~ C - Vee’ C 


ex 


Yes 



Read x/r , 0/r , r /r , shear 
n* n* s n’ 

from laminar input cards 

Find shear at XMTN 

' compute functions of 6 

| set up Table of x/r n increments for edge conditions] 



s, p from input 
du _ Q dp _ 
dx/r M " *dx/r n 



yes 

l 

Call CRKD 


f Call INPN2 > «- 

"T 


“Numbers 
refer to 


in circles 
statement numbers 
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Write * CL / V r b /r 

Write r /r 
s n 

a > s, p, x/r n of body 
s of shock 

1 


at desired x/r values interpolate for 
'• P ’VV x ClAn 




(call RGAS for p, a, h,~T) 


7 

If x/r n beyond Table 

8 

Compute x rT /r , r /r 
n on 

9 

using 0 

c 

10 

Write */r n . s, B . VV x CJ ,/r n> 


T, h, u, a * M y p i 


1 

r Call DIF for derivatives ^ 
\yith T point Lagrangian Formula 

1* 

1 

r 

Write x/r 

n 

> du/dx, dp/dx, dp/dx, dr./r /dx, 

n n ' n ' n 




= 1.045 (EQ. 36) 



Set Initial Counts 
Compute stagnation h, q and. printl 
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L5 


l4 

L5 

l6 
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x = .825 X2REX 

o 

R * R a /0/r (x/r - x )| 
ex CF e0 n n o' 



yes 

j 

CCall CFA ) 


1 


Compute q./ cl 

Prandtl No. from Hansen's Table s 
KARMAN Factor 

Incompressible heating rate ] 
Karman Factor heating rate 
Heating rate from Transition 
Heating rate from maximum heating 



x„ T /r from table) 
LL n 


^ Compute Shear Stress 



Convert output from US to SI units 


Write output for x/r^ station 


(Write output in US units for 


x/r station 
n 
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-Yes 


Reset the Print Count") 



Compute difference in 
[velocity "between this iteration 
and previous iteration. 

Save the largest difference 



Write largest velocity difference 
add 1 to iteration count 


Case is complete ]— © 


» — No 



From present iteration 
Save x/r n , V r 6 /r n 

[Compute and save dU /dx/r . do /dx/r 
1 e n e n 

at end of transition find 
N Turb’ C f //2 Turh 
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PROGRAM 03340 ( ! NPUT*1001* OUTPUT* 1 001* TAPES* I NPUT t TAP E6=0UTPUT rTAPEPRG 
110= 1001 • TAPE 15= 10 01 ♦ TAPE 16=1 00 1* TA PE t 7=1 00 1 f TAPtl 8=1 001 ♦ TAPE 19= 1 00 PRG 
? 1, T APE2 0=1001, TAPE21= 100 1 , TAPE22= 10011 PRG 

PRG 

MAIN PROGRAM FOR VARIABLE ENTROPY, REAL GA $ f TURBULENT BOUNDARY PRG 


LAYER PRG 

READS NAMELIST IN PUT 9 L AM I N AR INPUT CAROS* AMES TAPES EUR INVISCID PRG 
SOLUTION PRG 

READ TAPES AND SET UP TABLES PRG 

AT START OF TRANSITION COMPUTES MOMENTUM THICKNESS FROM SHOCK PPG 

RADIUS PRG 

CALLS INT1A FOR VARIABLE STEP SI7E FIFTH ORDER KJNGE KUTTA TO PRG 

INTEGRATE PPG 

VARIABLE ENTROPY MOMENTUM INTEGRAL EQUATION PRG 

AFTER EACH STEP COMPUTES HEATING RATES, SHEAR STkcSS, PRINT TF PRG 

DESIRED PRG 

IN COMMON/BLOCK/ SAVES OUTPUT TO BE PLOTTEO PRG 

COMPARES VELOCITIES WITH THOSE FROM PREVIOUS ITERATION PRG 

SAVES VELOCITY, SHOCK R AD I US , DENS I TV , N POWER VELOCITY PROFILF tSKINPRG 
FRICTION PRG 

VELOCITY DER I V AT I V E , DENS I T Y DERIVATIVE FOR NeXT ITERATION PRG 

WHEN VELOCITIES FROM TWO SUCCESSIVE ITERATIONS AGREE WITHIN ERROR PRG 
CRITERIA PRG 

AND FINAL X/L ON BODY REACHED, CASE IS COMPLETE PRG 

PRG 

*N1 INPUT <UNIN«1*> (UNIN=2.I PRG 

XMIN X/RN BEGIN TRANSITION PRG 

DXL T AB( 2 01 TABLE OF INCREMENTS OF X/RN FOR EDGE CONDITION PRG 

XM AXT R< 20 1 TABLE OF X/RN VALUES WHE^E INCREMENTS CHANGE PRG 

XMAXTB ( 20 } IS END OF BODY PRG 

FLI X2REX+,0i FOR PRINT AT END OF TRANSITION PRG 

XL SH MAXIMUM X/RN ON SHOCK PRG 

FROM TAPE 15 IF RODY ANGL E *NE . SHOCK ANGLE PRG 

XL SHI MAXIMUM X/RN ON SHOCK PRG 

FROM TAPE22 IF BODY ANGLE . NE . SHOCK ANGLE PRG 

XL SH= XL SHI IF BOOY=SHOCK PRG 

XMHL X/RN AT MAXIMUM HEATING PPG 

FL RN NOSE RADIUS (Ml (INCH] PRG 

X2REX X/RN END TRANS IT! ON, PROFILE PRINT AT X2REX+.JI PRG 

RMOUT RHOINF*U!NF (KG/M2SECI (L8M/FT2SEC) PRG 

SHEAR IF SHE AR=0 INTERPOLATE FROM LAMINAR CARDS PRG 


RO RHOO DENSITY (KG/ M3) 


(LBM/FT3) PRG 
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19 
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29 
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nonoonnoonnmonnnnnonnnnonrinnftnnnnnnnn^onn 


r. 


RHOi 

UI 

HT 

ST 

TTl 1 
DEL 

THC 

PR 

GC 

TRAN 

CARD 

PRINT 
A ( 3 » 

F(3 I 

ALPHE(3) 

ZMIN 

ZMAX 

AN 

CN 

ON 

KN 

FRXTI20) 
FCXT (20) 
FRTR120I 
FCTB ( 20 > 
TKTAR130 I 
PAT ARf7) 

PR T API 21 0) 


NX I NT 
X I NT 1 99 ) 
TWT<R«n 
L 

NN 

NT 

Cl 

SPEC 


RHOINF DENSITY (KG/M3 ) 

UINF VELOCITY IM/SFC) 

TOTAL ENTHALPY IM2/SEC2) 

TOTAL ENTROPY (M2/SEC2 DEGtO 
TOTAL TEMPERATURE IOEGK) 
INITIAL DEL /RN BOUNDARY LAYER 


( SLUG /FT 3 t 
(FT /SEC) 

(FT2/ SEC2) 

( FT2/ SEC 2DEGR I 
(OcGR I 

THICKNESS FRUM LAMINAR 


A(1J=Q.A(3»=0 
F< i)= 1. 


FLAT PLATE INPUT ,0M T T IF CONF 
CONE HALF ANGLE (RAD), OMIT IF FLAT PLATE I DEG) 

PRANDTL NO. =.72 

DIMENSIONAL CONSTANT TO CONVERT FROM SLUG/FT3 TO 
L8M/FT3 = 32.17<V 
=0 NO TRANSITION 
=1 TRANSITION 

30 READ INPUT FROM AMES TAPES 
=1 READ NAMELIST N2 
PRINT FREQUENCY 

AR COEFFICIENTS FOR ENTHALPY E0I12) 

BR COEFFICIENTS FOR ENTHALPV E0I12I 
ALPHAR COEFFICIENTS FOP ENTHALPY Ey(L2) 

ALPHE I 1 » = ALPHE( 2> = 1. 

=31.623 EQ(S) .SETS N=2 
= 6B1.33 E0< B) , SET S N=10 
=1/3 EOI 8) ,RETH**AN 
=1/2 EQ( B) , (TW/TE )**CN 
= 1/A FOI 8) » ME* *0N 
*1/3 E0(8),(XV0/THETA»**KN 
FRXRX FROM SPALDING CHI TABLE 7 
FCCF FROM SPALDING CHI TABLE 7 
FRTHRETH FROM SPALDING CHI TABLE 7 
FCCBARF FROM SPALDING CHI TABLE 7 
TEMPERATURE FROM HANSEN TABLE A I DfcGK I 
PRESSURE FROM HANSEN TABLE A (N/M2 6 5 ATM) 

PRANDTL NO. FROM HANSEN TABLE A 

STARTS WITH SMALL PRESSURE AND INCREASING TEMPERATURf 

LARGE PRESSURE AND INCREASING TEMPERATURF 

NO. OF VALUES IN WALL TEMPERATURE TABLE 

VALUES OF X FOR WALL TEMPERATURE TABLE J M ) ( INCHI 

VALUES OF WALL TEMPERATURE ( DEGK I 1 OBGR ) 

*5 NO. OF INTERVALS FOR GAUSSIAN INTEGRATION 
=A NO. OF POINTS PEP INTERVAL FOR GAUSSIAN INTEGRATION 
=1 NO. OF VALUES I N E LT BLOCK FOR RUNGE KUTTA 
INITIAL INTERVAL OF X/RN FOR RUNGE KUTIA 
*0 TO PRINT EVERY INTERVAL IN RUNGE KUTTA 


10EGK » 


PRG 

43 

PRO 

44 

PRG 

45 

PRG 

46 

PRG 

47 

PRG 

48 

PRG 

49 

PRG 

50 

PRG 

5i 

PRG 

52 

PRG 

53 

PRG 

54 

PRG 

55 

PRG 

56 

PRG 

57 

PRG 

58 

PPG 

59 

PRG 

60 

PRG 

61 

PRG 

62 

PPG 

63 

PRG 

64 

PRG 

65 

PRG 

66 

PRG 

67 

PRG 

68 

PRG 

69 

PPG 

70 

PRG 

71 

PRG 

72 

PRG 

7 3 

PRG 

74 

PRG 

75 

: PRG 

76 

PRG 

77 

PPG 

79 

PPG 

79 

PRO 

BO 

PRG 

81 

PRG 

82 

PRG 

83 

PRG 

84 

PRG 

85 
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c 

CIMAX 

MAXIMUM INTERVAL OF X/RN FOR RUNGE KUTTA 

PRG 

86 

c 

nzi 

RELATIVE ERROR IN THETA/RN 

PRG 

87 

c 


IF ERROR GREATER, RK HALVES COMPUTING INTERVAL 

PRG 

88 

c 

ELF? 

RELATIVE ZERO IN THETA/RN 

PRG 

89 

t 


WILL NOT APPLY RELATIVE ERROR IF THETA/ RN BELOW THIS 

PRG 

90 

c 

PRR 

RELATIVE ERROR IN T OR H WHEN ITERATING IN RG AS 

PRG 

91 

c 

UERP 

RELATIVE ERROR IN VELOCITY ON SUCCESSIVE ITERATIONS 

PRG 

92 

c 

CFFRR 

RELATIVE ERROR IN SKIN FRICTION, SP I OR SP II 

PRG 

93 

c 

xvo 

XVO/RN VIRTUAL ORIGIN FOR EQI34), SP I UR SP IT 

PRG 

94 

c 

P$I 

FACTOR IN C.F/2 EOI25> 

PRG 

95 

c 

FNl 

N AT BEGIN TRANSITION E0(26t 

PRG 

96 

c 

AIM&N 

ALPHA I 3 ) AT BEGIN TRANSITION EQ(lOi 

PRG 

97 

c 

ALX 

ALPHA ( 3 I AT END TRANSITION -1. EQI10) 

PRG 

98 

c 

FPOPT 

OPTION =1 FLAT PLATE 

PRG 

99 

c 


=0 CONE 

PRG 

100 

c 

TP 

PRESSURE FLAT PLATE (N/M2I (LBF/ET2) 

PRG 

101 

c 


OMIT IF CONE 

PRG 

102 

c 

TS 

ENTROPY FLAT PLATE (M 2/SEC 20EGK ) ( F T2/ SEC 2DEGR I 

PRG 

103 

c 


OMIT IF CONE 

PRG 

104 

c 

ENX 

N TURBULENT EO ( 26 ( 

PRG 

105 

c 

RHOT2 

DENSITY AT STAGNATION POINT (KG/M3J ( SLUG /FT 3 ) 

PRG 

106 

c 

PMC1T 

RN NOSE RADIUS (MI (FEET) 

PRG 

107 

c 

PT2 

PRESSURE AT STAGNATION POINT (N/M2J (LBF/FT2J 

PRG 

108 

c 

PI NP 

FR EEST REAM PRESSURE IN/M2J 4U3F/FT2) 

PRG 

109 

c 

TWO 

WALL TEMPERATURE AT STAGNATION POINT (DESK! (DEGRI 

PRG 

110 
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SHOCK POINTS AMES TAP 

E 

S 

PRG 

184 

c 


(LIMIT OF 450! 



PRG 

185 

c 

YS 

SHOCK RADIUS 
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TEMPERATURE 
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ENTHALPY 
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HEAT TRANSFER AT STAGNAT I ONI KG /M 2 SEC) 


(LBM/FT2SEC) 

PRG 

214 


ko 



c 

00 

HEATING AT STAGNATION 
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FC 1 EQUATION 221 



PRG 

264 

CFMT 
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1 

2 

3 

C 

4 


2 < 160 1 1 Pt T13( 160 > . PLT14I 1601* PLTL5I 160) *NKWSAV 


quantity TO convert FROM US 


LENGTH 

VELOCITY 

ENTHALPY 

ENTROPY 

HEATTRANSFER 

DENSITY 

DENSITY 

TEMPERATURE 

ANGLE 

PRESSURE 

PRESSURE 

HEAT 

VISCOSITY 


INCH 

FT/SEC 

FT2/SEC2 

FT2/ SEC 20EGR 

LSM/FT2SEC 

L8M/FT3 

SLUG/FT3 

OEGR 

DEG 

LBF/FT2 

ATM 

BTU/FT2SEC 
LBM/FTSFC 


TO S! 

METER 

M/SEC 

M2/SEC2 

M2/SEC 20EGK 

KG/M2SEC 

KG/M3 

KG/ M3 

DEGK 

RADIAN 

NEW T0N/M2 

NEW T0N/M2 

WATT/M2 


MULTIPLY bY 

2.346-2 
3.0486- 1 
9.29030 46-2 
16. 72234726-2 
4.88242 /322E0 
1.6 0 184 636 * l 
3.153796*2 
• 3 p 5 555 55fc 0 
1. 74532 9252E— 2 
4. 78802 586*1 
1. Ui325E*5 
L. 1 3489 316*4 
1.488L639E0 


PPG 

PRO 

PRG 

PRG 

PRG 

PRG 

PPG 

PRG 

PPG 

PPG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 


NEWTONSEC/M2 

DATA CV 1 /2 .54E- 2/ ?CV2/3. 04 8£-l/*CV3 /9 * 2903 046— 2 / » CV4 / 16 ■ 72 25 472E-2 PRG 

l/,CV5/4. 882427522 /#CV6/ 16. 01 8463/ *CV7/ 5. 15 3?9E2/,CV8/. 5 5 55555556 /.PRG 

2CV9/1 .745329252F-2/.CV10/4. 78 802 5 8E 1 / f C V 1 1 / 1 * 01 32 565 / »C VI 2/ l • 1 3489 PRG 
331 E4/.CV 13/1 .4881639/ 

EXTERNAL OERSUR pRG 

EXTERNAL CHECK pR G 

NAMELIST /N1 / XMIN.DXLTAB. XMAXTB *ELT, XLSH * XL SHI ♦ XMHL *EL , X2RE X *RHOU PRG 
t t* SHEAR* RQ.RHOIUINHT, ST, TT 1 1 1 DEL ♦ THC *PR * GC ♦ TRAN * C ARO* PR INT* A » F f AL PRG 
2PHE #?MIN *ZHAXfAN*CN*DN*KN#FRXT * FCXT .FRTB*FCT 6*TKT AB* PAT AB * PR T AB, NXPRG 
3 ! NT * X INT *T WT * L *NN * NT*C I * SPEC *C IM AX* EL El* EL F2 *ERR*UERR* C F ERR * XVO * PSPRG 
41 ,ENl *ALMlN,ALXrFPOPT#TP , T S * ENX . RH0T2 * RNQT #PT2, FINE* TWO * IGAS * ACFT * PRG 

5TREXT *UNIN*UNI0 PRr ’ 

PRG 

READ NAMELIST /Nl/ INPUT PPG 

PRG 
PRG 
PRG 
PRG 
PRG 

ST TO US UNITS 

PRG 


5* 2*3 


READ I 5 * Nl ) 

IF (ENOFILE 
CALL EXIT 
WRITE <6*NU 
IF IUNIN-1.I 4.4*7 
CONVERT INPUT FROM 
EL-EL/C V l 


RHOU I^RHOUI /CV5 

RO=RO /C V6 

PHD ! “RHO I /CV7 

UT=UI/CV2 

HT=HT/CV3 

ST=ST/CV4 


PRG 

PRG 

PRG 

PRG 

PRG 

PRG 


387 

389 

389 

390 

391 

392 

393 

394 

395 

396 
39 7 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 
42 2 

423 

424 

425 

426 

427 

428 

429 


^5 



n n n 


THC-THC /CV9 

tp=tp/c vio 

TS=TS/CV4 

c HOT7=R HOT2/CV7 

RNOT=ftNOT/CV2 

PT2=PT2/CV10 

PfNFiPTNf/CVlO 

TW0=TWn/'CV9 

TT 1 1=TT 1 l/CVB 

OH 5 N=1.NXINT 

XINT«N» = XINHN)/CV1 

5 TWT<Nt=TWT(tVll /CVB 
DO A N= 1 « 7 

6 PATAMNJ =PATAB!N9 /CVll 

7 CUV AR ( 2 ) =0 
XX l =0 
HBCF=0 
OXCF=0 
HHC.F=0 
PFTH=0 

R E X = 0 
FC = 0 
CFHT=0 
ELVO=0 
7 = 0 
CF 1 =0 
TOLL = 0 
REX2=0 
RS l S AV=0 
RFXSAVt l 9 = 0 
fFHT=0 
CP !=0 
FC = 0 

SET UP LOG OF SPALOIKG-CHI TABLES 
00 8 N= 1 * 20 

FRXLGT(f'j) = ALOGlO< FPXT(f^9 9 
Ft. XLGT1 N 9 = AL 0G10< FCXT(NI> 9 
FRLGTIN9=AL0G10IFRTB(N9) 

R FCL GT (N 9 =AL0G1 0 JFCTB(N>) 

00 9 N= 1 » 2 Z 

ACFLGTfN f=ALOG10( ACFTIN) 9 


PPG 43 0 
PRG 431 
PPG 432 
PRG 433 
PRG 434 
PPG 435 
PRG 436 
PRG 437 
PRG 438 
PRG 439 
PRG 440 
PRG 441 
PPG 442 
PRG 443 
PRG 444 
PRG 445 
PRG 446 
PRG 44 7 
PRG 44 B 
PRG 449 
PPG 450 
PPG 451 
PPG 452 
PRG 453 
PRG 454 
PRG 455 
PRG 456 
PRG 457 
PRG 458 
PPG 459 
PRG 460 
PRG 461 
PPG 462 
PRG 463 
PRG 464 
PRG 465 
PPG 466 
PRG 467 
PRG 468 
PPG 469 
PRG 470 
PRG 471 
PRG 472 


46 



non non *- n n o r> o o 


9 TRLGT(NI=ALnG10(TREXT(N) » 

C 

C IS FLAT PLATE 

C, 

IF (FPOPT) 13,10,13 

r 

C REAO X/L.TH/L.RS/L FROM LAMINAR INPUT CAROS 

c 

10 RSAO 15,651 LLIM 

READ (5 » 66 ) ( XW ( L L ) »LL=1*LLIM) 

READ (5,66) ( FIN6( LL ),LL = l, LLIM) 

RFA0 (5,66) (RSLW(LL),LL=1,LLIM) 

IF (SHEAR) 12,11,12 

11 READ (5,66) ( SHEER ( LL ) ,LL = 1 , LL IM ) 

CALL 01 SCOT (XM1N, XMIN,XW, SHEER, SHEER,01l, LLIM, 0, SHc AR) 

COMPUTE FUNCTIONS OF THC 

2 THCP sTHC /57 . 29578 
STHCR=SIN(THCR) 

C.THCR =C0 St THCRI 

tihcr=sthcr/cthcp 

Tl=THCR-l. 570796 
T2= 1 ,-ST HCR 

WRITE NAMELIST INPUT 

3 CONTINUE 
WRITE (6,67) 

IS FLAT PLATE 

IF (FPOPT) 14,15,16 

S,P FROM INPUT TS AND TP,0U/DX*0RHO^DX»0»MTF=l, 

14 SVAR=TSIU 

PI VAP=TP ( 1 ) 

S( 1 ) =SV AR 
PI < l )=P l VAR 
NKW=2 

XKW ( 1 NXMIN 

OUDXT ( l ) =0UDXT ( ? ) =0 


PRG 473 
PPG 674 
PRG 475 
PPG 476 
PPG 477 
PRG 476 
PRG 479 
PPG 480 
PPG 481 
PRG 492 
PRG 683 
PRG 696 
PRG 485 
PRG 486 
PRG 487 
PRG 488 
PRG 489 
PRG 490 
PRG 491 
PRG 492 
PPG 493 
PRG 494 
PPG 49 5 
PRG 496 
PRG 497 
PRG 498 
PRG 499 
PRG 500 
PPG 501 
PRG 502 
PRG 503 
PPG 504 
PRG 505 
PRG 506 
PRG 507 
PRG 508 
PRG 509 
PRG 510 
PRG 511 
PRG 512 
PRG 513 
PRG 514 
PRG 515 
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nnoonn o r> o r> o o r>oni— noo 


5 


6 


7 


3 


13 

20 


21 


ORDXTU >=DR0XTI 21=0 
XKW( 2»=XMAXTB(20> 
CFBMT=l. 

GO TO 26 


IS INPUT FROM AMFS BLUNT BODY AND MOC TAPES 
IF (CARD! 17,16,17 


CALL CRRD 

CALL CRRD 
GO TO 18 

CALL 1NPN2 


CALL INPN2 


WRITE TABLES X/LCL,RB/L,S,P»X/L ON BOOY»RS/L,S UN SHOCK 
WRITE 16,711 

WRITE 16,731 UTXLCU Jl.TVU J1»TS< J8,TP( J1,TXLl J> > ,J M . JLIMI 
WRITE (6,728 

WRJTg (6,749 HTYLS(K9,TSS(K H,K = 1,KL!M) 


AT DESIRED X/L STATIONS INTERPOLATE IN TABLES FOR S, P,RB/L, X/LCL 
CALL RGAS TO FIND R HO , A , H , T 
FIND U» M 

IF X/L BEYOND TABLE VALUE USE FINAL S.P.FIND X/LCL, KB/L 


(=1 

(( J MXMIN 
(RITE (6,758 

F I X( J 9-TXLI JLIM » } 21,21,20 
i( J»=TSI JLIM9 
’ll J 8 =TP t JLIM8 
C( J8=(X( JJ+T1 8*CTHC.R«-T2 
8( JMCTHCRM XCI JJ-T2i*TTHCP 
0 TO 22 

01 SCOT (Xm,X(J2,TXL,TS,TS,0ll,JLIM,0,SW»J 
D I SCOT I X( Jl 8 „ XI Jt ,TXL,TP,TP,0 It, JLI M,Q, PH J* > 

Of SCOT f X( J9 , X( J9 ,TXL ,TYL ,TYL , 01 1 , JL I M , 0,RB ( J 8 » 
01 S COT (X< J 9 9*UKTXL»TXLCL ,TXLCL,0l l, JLiM 


;all 

:all 

:all 

:all 


vr i i i 8 


PRC. 

5L6 

PRG 

517 

PRG 

5ia 

PRG 

519 

PRG 

520 

PRG 

521 

PRG 

522 

PRG 

523 

PRG 

524 

PRG 

52 5 

PRG 

526 

PRG 

52 7 

PRG 

528 

PRG 

529 

PRG 

530 

PRG 

531 

PPG 

532 

PRG 

533 

PRG 

534 

PRG 

535 

PRG 

536 

PPG 

53 7 

PRG 

538 

PPG 

539 

PRG 

540 

PRG 

541 

PRG 

54 2 

PRG 

543 

PPG 

544 

PRG 

545 

PRG 

546 

PRG 

547 

PRG 

548 

PRG 

549 

PRG 

550 

PRG 

551 

PRG 

552 

PRG 

553 

PRG 

554 

PRG 

555 

PRG 

556 

PRG 

557 

PRG 

558 
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non o n on ooo^o ro non 


22 


3 


26 


GX= 1 • 4 

CALL RGAS ( P I< J ) t RX , AX *HX t TX i $ ( J ) » RRX f GX L * 5# i GAS I 
W ( J ) *$0R TI 2.*IHT-HX > > 

PRT < J t-R X*32 - 174 
EMX x W ( J ) /AX 

WRITE TABLES X/L ,S,P*RB/LfX/LCLfT ,H *U p A p M* RHO 

WRITE <6p 70> Xt J) tS( J* f PI U> ,RBC JUXCt J) rTXtHXfWl Jl, AXtEMXtRRTt J) 
IF <X< J1-XMAXTB(?0n 23,24,24 

CALL DISCOT { XC J) ,X(J> ,X« AXT B, OXLT AB , DXLT AB ,OU t 20fO tDXL I 
J= J + 1 

X( J I =Xf J-n*DXL 
GO TO 19 
J JL I M- J 
WRITE (6,69) 

WRITE X/ L,DU/DX,DPHO/OX,DP/DX,DRR/DX USING 3 PJINT SLOPt SUBR OIF 

00 25 J = I, JJLIM 
XKW(J)*X! JJ 

OUDXT t J ) *DIFI Jf 3, J JLIM t X,W) 
nROXT ( J > =DI F ( J , 3 , J JLIM,X,RRT > 

DPOXTU) *OTF( J,3, J JLl*tX, P!1 
DRBOXT ( J l = OIF(Jf 3 f J JLIMt X t R8 ) 

WRITE I 6 t 70 ) X( J) fOUOXTUI ,DROXTf J) »OPDXT| JIfDRBOXTI Jl 
MTF = 1 • 045 EOt 36) 

CFBMT-U 045 

SFT INITIAL COUNTS ANO X/L*XMIN 

NKW* J JL T H 
CEBP-TANHI PS! ) 

CNT*0 

ICELL-0 

PATH s PT2**4725E-3 
TK=TW0/1 »8 

CALL DISCOT <TK,P^TM,TKT A B , PRT AB ♦ P AT A B * 0 i l t 2 1 0» 7* PRT MU I 
RHOW-RHO T2*TT 1 1 /T WO 

FMUW=T#3106l5E- , 7* SORT { TWO I / ( U f20 !• 6/TWO I 
EMUT2~7.3106l5F-7*SGRTITTl 11 f\ l* *20U6/TT1U 


PRO 

PPG 

PPG 

PPG 

PRG 

PPG 

PPG 

PRG 

PRG 

PRG 

PPG 

PRG 

PPG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 


559 

560 

561 

562 

563 
56* 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 
601 
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ooo non or»n n n n 


27 


28 

29 


OUEDX*$QRT<2.*IPT2~PINM/RHOT21/RNaT PRG 602 

CALL RG AST i PT 2 • R X * A X* HWO , TWO, S( 1 U ER R , I GA S ) PRG 603 

H0-* 768* SORT < 32.1 74l*PRTW0* J M-.6 5 * ( RHOW*FWUW 5 1* U HOT 2*EMUT 2 I**. PRC, 604 


I 4*Dl)£0X**.5 
QQ = HO’MHT-HWO& /2. 5036E4 
TF fUNIO-K) 27,27*28 
08 7 =H0* t V5 
O88-00SCV 12 
WRITE (6*601 087,088 
GO TO 29 

WRITE $6*601 HO , 00 
TOLL^O 

u=o 

SP = 6* 8E4 
SW“4*8E4 
EK* .4 
EM2* 

PRC T = 0 
C0~C I 
NKW SA V= 0 
VAR.U )*XMIN 
CLJVARf n =XMI N 

CALL EDGE 

CALL EDGE 

CALL AL3CAL 

CALL AL3CAL 

CALL START TO GET INITIAL TH/L 

CALL START 
VAP (2 UCUVAR (25 
WPITP 16*63) 

WRITE (6*611 
WRITE (6*625 
WRITE (6*635 
WRITE ( 6 o 6 ft 1 

CALL TNT 1 A VARIABLE STEP S 12 E RUNGE KUTTA 
JIMT1A CALLS DERSUB TO GET OTH/DX E0t3> 


PRG 605 
PRG 606 
PRG 607 
PRG 608 
PRG 609 
PPG 610 
PRG 611 
PRG 612 
PRG 613 
PRG 614 
PPG 615 
PRO 616 
PRG 617 
PRG 618 
D RG 619 
PRG 620 
PRG 621 
PRG 622 
PRG 623 
PPG 624 
PRG 625 
PRG 626 
PRG 62 7 
PRG 628 
PRO 629 
PRG 630 
PRG 631 
PRG 632 
PRG 633 
PPG 634 
PRC, 635 
PRG 636 
PRG 637 
PRG 638 
PRG 639 
PRG 640 
PRG 641 
PRG 642 
PRG 643 
PRG 644 


50 



c 

30 


31 
C 
C 
C 
C 

c 

c 

32 


C 

c 

c 


c 

c 

c 


33 


34 

35 


CALL INI 1A ( II* 1« NT,CO*SPEC,CIMAX* IBP R* VAR *CUVAR , DER *ELE1*ELF2* 
1 * FRRVAL * DERSUB *CHECK *0 1 
IF (IFRR-W 31 * 32 » 3 1 
CALL EXIT 

AFTER EACH RK STEP HAS MET THE ELE1 * ELE2 TESTS FUR ACCURACY 
IN COMMON/BLOCK/ SAVE FOR PLOTTING 

X *N *RETH *CF/2 * M, DEL. OELST* THETA* H/ HT f REX, S / S T. U/ U l .RHO/KHOI ,Q*R 
AND NK W S AV= COUNT OF POINTS TO BE PLOTTED 

NKWSAV=NKWSAVH 

PLT l ( NKWSA V I =V AR < l > *EL 

PLT3 1 NKW SAV I =RETH 

PLT5(NKWSAVI=EMVAR 

PLT6(NKWSAVMDEl*EL 

PLT7(NKWSAVI~0ELS*EL 

PLT 8 C NKWSAV ) =VAR 1 2 I ♦EL 

PLT9 I NKWSAV >=HV A* /HT 

REYNOLOS NO* ST ANT ON NO ( E0?7 l * HEA T TRANSFER COEF F ( EQ2 8 ) 

REX=RETH*VAR(n/VARm 
PLT 11 (NKWSAV l -S VAR/ST 
PLT 12 (NKWSAV ) -WVAR/UI 
PLT13(NKWSAV) -ROV AR /RHO ! 

FNST=CF2*RAF 

HBAR-ENST*WVAR*RRTVAR 

HEATING RATE(E029) f PRANOTL NO. FROM HANSENS TABLE.KA1MAN FACTOR 

0-H B AR* < HAW- HW )/2 * 5036E4 

HH-HBAR/HO 

WRITE ( 6 *63 l 

IF ICFMTI 33 t 34# 33 

HBCF=H8AR/CFHT 

OXCF*O^CFMT 

HHCF^HH/CFFIT 

IF (UNIO-l.) 35,35*36 

D8l*HBAR*CV5 

082~0*CV12 

085- H BCF*CV5 

086 - QXCF*CV 1 2 


PRG 

ELTPRG 

PRG 

PPG 

PRG 

PRG 

PRG 

PRG 

S/LPRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PRG 


645 

646 

647 

648 

649 

650 ; 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
66 2 
66 3 

664 

665 

666 
66 7 
668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
68 2 

683 

684 

685 

686 
687 
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n ri r> o n o 


W»ITE 1 6 » 70B R&F»CFMT,CF2 f ENST,08l,082*HH.KXit085»086»HHCF 
GO TO 37 

36 WRITE 16,701 RAF, CFMT,CF 2 , ENST ,HB AR,0 , HH, XXI ,HBCF , OX CF > hHCF 

37 XO = ( ,825«X2RFX 

REXCF=( fi ETH/VAR I 2 I M-IVAR I U-XO» 

IF IA8SIREXCFI-.1E-4I 39,39.38 

38 CALL CF A 

39 0=0/00 
WRITE (6,631 
PLT14INKWSAV) =0 
WSAV«NKWSAVI=WVAR 
RRTSAVINKWSAVJ =RR TVAR 
XSAVINKWSAVI=VAR( II 

RSLSAV(NKWSAVI=PLTL5(NKWSAVI*HSLVAR 
REXSAV(NKWSAVt =PL T1 0 ( NKW S A VI «REX 
FNSAV(NKWSAV»=PLT2(NRWSAV >=EN 
CFSAV(NKWSAVI*PLT4(NKWSAV)*CF2 
TK=T IVAR /I o8 

CALL 0! SCOT I TK , P ATM »TKT AB ,PRT AB , PATAB . 01 l » 3 L 0. 7 , PRE 8 
EKF = U/( X.*5.*S0RT(CFU^ IPRE-l.-ALOGI (5.*PRE^1. 1/6. 1 H 

INCOMPRESSIBLE Q, (CARMAN FACTOR 0 

0I NMWVAR*RRTVAP*CF2’MHAW-HW 1 l / Z .5036? 4 
OKF=EKF*OEN 
VAR 0 = VAR I II /DELS 
PN3=WVAP/SORT(2o*HT> 

PN7=HAW/HT 
PN8=HW/HT 
FRX=FRTH/FC 

TRANSITION HEATING 

R XTR = R£ X* I I. — XMIN/VARd I I 
IF ! RXTR — 1000 . I 40,41,41 

40 0XTR = 1, 

GO TO 42 

41 FRRX=AL0G10(FRX*RXTR} 

CALL Df SCOT ( FRP.X „ FRRX,FRXLGT , FC XLGT, FCXLGT , OU ,20, 0 ,FCC XLGl 

FCCX=lOoP*FCCXLG 

CFPZ*CPMT#FCCX/«2,*FC| 

ENSTP=CFP2*R6F 

hbarp=enstp*wvarprrtvar 


PRG 

6B8 

PRG 

609 

PRG 

690 

PRG 

691 

PRG 

69 2 

PRG 

693 

PRG 

694 

PRG 

69 5 

PRG 

696 

PRG 

697 

PRG 

698 

PRG 

699 

PRG 

700 

PRG 

701 

PRG 

702 

PPG 

703 

PRG 

704 

PPG 

705 

PPG 

706 

PRG 

707 

PRG 

708 

PRG 

709 

PRG 

710 

PRG 

71 1 

PRG 

712 

PRG 

713 

PRG 

714 

PPG 

715 

PRG 

716 

PRG 

717 

PPG 

718 

PRG 

719 

PRG 

723 

PRG 

721 

PRG 

722 

PRG 

723 

PRG 

724 

PRG 

725 

PRG 

726 

PRG 

727 

PRG 

728 

PRG 

729 

PRG 

730 
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QXTR=HBARP*t HAW-HW » /2.5036E4 


C 

C MAXIMUM HEATING 

C 

42 PXMH = REX*!l.-XMHL/VARm I 
IF (RXMH-IOOO.) 43,44,44 

43 OXMHsI. 

GO TO 45 

44 FPRM=ALOGIO(FRX*»XMH) 

CALL 01 S COT CFRPM,FRRM.FRXLGT,FCXLGT,FCXLGT,Q11,20,0,FCCMLGI 

FCCM=10.**FCCMLG 

CFPP2*C.FMT*FCCM/( 2.*FC> 

ENSTPP=CFPP2*RAF 
HBARPP=ENSTPP*WVAR*RRTVAP 
OXMH=HBARPP* t HAW-HW J/2.5036E4 

45 IF (FPOPTJ 47,46,47 

46 CALL OISCOT I VAR U » , VAP (II ,X ♦ XC, XC , 01 1, J JL l M, 0, XCV A* I 

C 

C SHEAR STRESS EOI30I 

C 

47 RHOUSO=ROVAR*WVAP*WVAR 
TAU=CF2*PH0US0 

C 

C WRITE OUTPUT 

f. 

prct=prct+i 

IF fPRINT-PRCTl 43,48,52 

48 IF IUNIO-I.J 49,49,50 

C CONVERT OUTPUT FROM US TO SI UNITS 

49 02=PLTl(NKWSAVI*CVl 
04=PLT91 NKWSAVJ*C VI 
05=PIVAR*CVIO 

07= SV AR*CV4 

09=T I VAR+CV8 

010=HVAR*CV3 

012=PRTV AR*CV6 

014-WVAR *CV2 

017 = AVAR *CV2 

019*EMU*CV13 

022=TW*CV8 

023=HW*CV3 

025=PH0W*CV6 

027=TAW#CV8 


PRG 731 
PRG 732 
PRG 733 
PPG 734 
PRG 735 
PRG 736 
PRG 73 7 
PRG 738 
P»G 739 
PPG 740 
PRG 741 
PRG 742 
PPG 743 
PRG 744 
PPG 745 
PRG 746 
PRG 747 
PRG 748 
PRG 749 
PRG 750 
PRG 751 
PRG 752 
PRG 753 
PRG 754 
PRG 755 
PRG 756 
PRG 757 
PRG 758 
PRG 759 
PRG 760 
PRG 761 
PRG 762 
PRG 763 
PRG 764 
PRG 765 
PRG 766 
PRG 767 
PRG 768 
PRG 769 
PRG 770 
PPG 771 
PRG 772 
PRG 773 


53 



o n n ' ji n o n ji 


50 


1 


53 


035=HAW*CV3 PRG 

H37=HP^CV3 PRG 

038=TPP*CV8 PRG 

054*PLT6(NKW$AV)*C VI PRG 

057 = PLT7 <NKWSAV**CV1 PPG 

□60*OUVAR*CV2 PPG 

06 1 - DRV AR*CV6 PPG 

062- dpvar*cvio ppg 

066=HBAR*CV5 PPG 

070=GIN*CV12 PPG 

O71=0Kf*CVX2 PPG 

072 = 0XTR #CV1 2 PPG 

073*QXMH*CVX2 PPG 

075=RHGUS0*CV10 PPG 

O 76 -T AU*C V 1 0 PPG 


WRITE (6 *70 1 VARI U » 02 , V AR ( 2 9 , 04 • 05, ft BVAR f 07 , PL T i U N KWSA V > t09 ,0 10 1 PPG 
1PLT9INKWSAV) * 0 1 2 , PL T 13 I NK WSA V $ ♦ 0 1 4t PN 3* PL T 1 2 (HKxS AV) • 1)1 7 , PIT 5 < NKWS PRG 
2 AVI *019# PLT3 ( NKWS AVI , PIT 1 CUN KW SA V ) , 02 2 *023 * PN8. D2 5t C QE 1 * 02 7 • FR TH f FPRG 
3C*CFMT»ELV0* £ *CFI ,PLT4INKWSAVK035 f PN7,n3 7,0 38oPFsi> f PRW,F<n,F (2 1 , APRG 
4(2) * ALPHE ( 3 D * PLT2 (I NKWS AVI • AN 2, DEL ♦ 0 54 , PL T £ 5 t NRw S A V I , Ofc L S ,057 » VARD ♦ PPG 
5DSTH, 060*061* 062 *ORBVAR,OERI ?) * E NS T , 066 , PL T 1 4 { NKwS A V I ♦ PRE t EKF , 070, PRG 
6 071 ,072* 073, XCVAR ,075*076 PRG 

GO TO 51 PRG 

WRITE 16,70 3 VAP< 1 K PL T U NKW SA VI * V AR I 2 )♦ PL T8 i NK « S A VI ,PiVAR,RBVAR,SPPG 
l VAR »PLTIUNKW$AVI *Tf VAR*WVAR *PLT9 ! NKWS AV ) *RRTVAR*PL? 13 l NKWSAV ),*VAPRG 
2R*PN3,PLT£2(NKWSAVB , AVAR, PLT5INKWSAV) , EMU , PL T 3 1 NK N SA Vi * PLT XO f NKWSAPPG 
3 V) e TW 0 HW , PN8 , RHOW & C0E1 *T A W *F PTH, FC , CF MT , EL VO * L t CF 5 , P U 4 1 NK WS A V I , HAPRG 
4W*PNT,HP,TPP*PRP,PRW,Fm , FI 21 *At 2 U ALPHE ( 3J , PL T2d NK WS A V l * AN2 * DEL t PPG 
5 PLT6 ( NK W $ AVI * PLT 1 5 ( NKWS A V I ,0 EL S * PL T 7 < NKWS A V I , VARO , OS TH • OUVAR , OP V ARPRG 
6,DPVAR*0R8VAR«DER ( 2 1 , ENST 0 HB AR * PLT 14< NKWS A VI *PRl,cKE .0 I N tQKF * OX Tft f PPG 


7QXMH* XCVAR,RHOUSO,TAU PRG 

PRC T=0 PRG 

PRG 

IS FIRST ITERATION PRG 

PRG 

IF UCELU 53,54,53 PRG 

PRG 

COMPUTE DIFFERENCE IN VELOCITY PRG 

SAVE LARGEST DIFFERENCE IN VELOCITY PRG 

PRG 

CALL 01 SCOT (VARm*VARm,XKW,WKW,WKWtOll*NKW fl 0,W0LDJ PRG 

DFF = ABS l I WOLD^WVA R ) /WOLD I PRG 

TOLL* A# AX U OFF, TOLL & PRG 


774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 
79 2 

793 

794 

795 

796 

797 

798 

799 

800 
801 
802 

803 

804 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 





c 


PRG 

817 

c 

IS END OF BODY 

PPG 

818 

c 


PRG 

819 

54 

IF (VAR tll-XMAXTB( 20)1 30,55,55 

PRG 

320 

55 

CONTINUE 

PRG 

821 


WRITE (6,641 TOLL 

PRG 

322 

C 


PRG 

823 

c 

ADO TO ITERATION COUNT 

PRG 

824 

c 


PRG 

825 


CNT=CNT+ l 

PRG 

826 

c 


PRG 

827 

c 

IS FOURTH ITERATION COMPLETE 

PRG 

828 

c 


PRG 

829 


IF (CNT-41 58,56,56 

PRG 

830 

c 


PPG 

331 

c 

IS LARGEST VELOCITY DIFFERENCE WITHIN ERROR CRITERIA 

PRG 

632 

c 


PRG 

333 

56 

IF ( TOLL— UERR 1 57,58,58 

PRG 

834 

c 


PRG 

83 5 

c 

CASE !S COMPLETE 

PRG 

836 

c 


PRG 

837 

5T 

CONTINUE 

PRG 

838 


GO TO 1 

PRG 

339 

C 


PRG 

840 

C 

FROM PRESENT ITERATION SAVE X/L, U,R S/L ,OU/ OX .DRHO/DX 

PRG 

841 

c 


PRG 

842 

58 

00 59 NK = 1 » NKWS A V 

PRG 

843 


WKW INK1 *WSAV( NK > 

PRG 

844 


XKW(NKI=XSAV(NK1 

PRG 

845 


RSLKW(NK) *RSLSAV( NK 1 

PRG 

846 


OUDXT (NK l=OIF(NK, 3, NKWSAV, XS AVtWSAV 1 

PPG 

847 

59 

0RnXT(NKleD!F(NK,3,NKWSAV,XSAV,RRTSAVl 

PRG 

848 


NKW^NKWS AV 

PRG 

849 

C 


PRG 

850 

c 

FINO AT ENO OF TRANSITION N( TURB 1 ANO CF/2IT0RBI 

PRG 

85 t 

c 


PRG 

852 


CALL DISCOT ( X2REX, X2R EX, XKW ,FNS A VtENSAV, I I I ,NKW, 0,E N2KE X) 

PRG 

853 


CALL DISCOT < X2P FX , X2REX , XKW , CFS AV , CFS&V , I 11 »NKW , 0 ,C F2R EX1 

PPG 

854 

c 


PRG 

855 

c 

FINO TRANSITION REGION COEFF FOR CF/2 AND N (E025,26» 

PRG 

3 56 

c 


PRG 

857 


CEM=EN2REX-ENI 

PRG 

359 


CEfl= I PSI *PSI 1MX2REX-XMIN1 

PRG 

859 


55 



O' O' n n r> o o 


0 

i 


62 

63 

64 

65 

66 

67 

68 


69 

70 

71 


CEMP=CF2REX-CF2I 
WRITE 16*76$ 

WRITE <6»705 REX2 P X2RE X P E N2R EX 9 C E M 
1V,ENI,CF2I,REXSAV( I 5 

START NEXT ITERAT ION 

ICELL -2 
GO TO 29 


PRG 

PRG 

CEB,CF2REX,CEMP,C EBP.XMIN, RSISAPRG 

PRG 

PRG 

PRG 

PRG 

PRG 

PPG 

PRG 

P«G 

PRG 


FORMAT UH 3HHO»»FIU3,tH 
FORMAT [ 21H SKIN FRICTION 
1 (26 VAN DRIEST REX 

2PALDING CHI REX 


QO*t FIU3& 

THEORY, /24H <U VAN DRIES 
OMIT IN TRANS kEGS 
OMIT IN TRANS R E G ION f / 54H 


3 P E F ENTHALPY RFX OMIT IN TRANS REGION, /54H (51 E 

4HALPY REXWIN OMJT IN TRANS REGION, /21H 165 ECKtKTS 

5 < 7 I SPALDING CHI I RETHETA IDEAL FC,/37H <85 5PAL0I 

6FT A REAL FC ) 

FORMAT ( LH ,7X,3HRAF,7X*4HCFMT,7X,3HCF2,8X,4HENST,7X 
l 9 10Xt2HHH,9X,3HXXl ,9X,4HHRCF , 7 X » 4H0XCF , 7 X , 4HHHCF . 7 X 5 
FORMAT UH ) 

FORMAT UH 5HT01L *,£ll,3l 
FORMAT «I5» 

FORMAT «5Ei5 0 95 
FORMAT UH 14X 9 \ MX , 1 5X* i HY A S XU HQ ,1 1 X , 5HTHETA ,1 5 X * l 
1 QCK PTS/ 15Xp IMS 9 1 5X *1HP o 15 X,XHH, l 3X ,3 HRHO » 12X , 4H PF 
FORMAT UH 7X,3HX/L P XOX* t HX, 4X , 7H THE T A/L , 6X,5HTHETA* 
1B,10X,IHS,7X,4H$/ST,X0X, IHT, 10X, l HH *7X ,4HH/HT , 6 X , 3HR 
201, 10 X, 1HU,2X, 9HU / S0RT2HT , 7X , 4HU /U I , l OX, 1HA, 10X,LHM« 
3ETH P 8X»3HREX 9 9X, 2HTW,9X*2HHW ,6X, 5HHW/HT/7X, 4 HRHO W , 7X 

4 AW, 7X ,4HFRTH, 9X,2HFC»7X, 4HCF MT,8X,3HLV0, lOXUHi, 8X,3 

5 9X,3HHAW,5X 5 6HHAW/HT/9X<,2HHP ,9X» 2HT P, 8X , 3HPR P 1 8X • 3HP 
6X,4HF<2K?X,4HA( 2 U 4X ,7H ALPH < 31 , 1 OX , 1HN , 7 X « 4H I N T1 , 7X 
7NT3/7X,4HINT4*?X,4HINT5,7X,4H!NT6,7X,4HINT7,6X, 5H0fcL 
8,3 HRSLd5X p 6HDELS/L, 7X,4HDELS ,5X V 6HX/0ELS, 7X,4H0SIH,9 
9 HO, 9X, 2 HOP * 8X, 3HDP B, 5X,6MDTH ETA, 8X, 3HNST D 7X,4HHBAR,1 


PRG 

T RETHETA, /54HPPG 
ON , / 54H < 3 ) SPRG 

<45 ECKERTS PRG 
CKERTS PEF E NTPRG 
RETHETA,/37H PRG 
NG CHI II RFTHPRG 
PRG 

,4HHBAR,7X, 1HQPRG 
PRG 
D RG 
PRG 
PRG 
PRG 

HH, i 5H BODY^SHPRG 
& PRG 

10X, IMP, 9X,2HRPRG 
HU/ 3 X, 8HRH0/RHPRG 
9X , 2HMU f 7X, 4HRPRG 
o 4H1 W/T , 8 X , 3HT PRG 
HCFI ,RX,3HCF2*PRG 
RW, FXt 4HF< 15 ,7PRG 
,4HINT2,7X, 4HI PRG 
/L, 8X,3HDEl,8XPRG 
X, 2HDU/?X,4HDRPRG 


$E,8X,3HEKF,BX 9 3HQ I N , 8X , 3H0KF ,7X, 4HGX TR /7X , 4HQXMH , 9 X, 2HXC »5X • 6 HPHOU PRG 
$S0,8X*3HTAU! PRG 

FORMAT f IH 9 X b 1HXo3X, 5HD0/DX *5X, 7HDR HO/D X , 5X , 5HDP /OX , 5X , 6HDR 8/0X 5 PRG 
FORMAT \ 12EU o31 PRG 

FORMAT C IH 6X , 3HXC L , 14X , 1 MY, 15X, l HS , 1 5 X , 1 HP , 1 5X *1 HX 5 PRG 


860 

861 

862 

863 

864 

865 
366 
86 7 
868 
869 
370 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 

883 

884 

885 

886 

887 

888 
989 
890 
391 
892 
393 

894 

895 

896 

897 
89 8 

899 

900 

901 

902 
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72 

73 

74 

75 

76 


FORMAT C 1H 6Xt2HY$?15X»lH$ ) 
FORMAT ( 5E 16 • 8 ) 

FORMAT (2616.8) 


PRO 903 
PRG 904 
PRG 905 


FORMAT ( 1H 5X.lHX f 10X , 1HS , 10X, 1HP • 9X, 2HRB 1 9X ,2HXC ♦ 10 X, iHT ♦ IOX f iHH, PRG 906 
1 10 X, IHU* 10X* IHA»10X ♦ iHM f 9X r 3 HR HO , 9X t 2HRS > PRG 907 

FORMAT l 1H 6Xt4HR6X2#6Xf 5HX2REX, 5X»6HEN2RFX*aXt 3HCEM ♦8Xt3HCEB,5X f 6PRG 908 
1HCF2R6X, 7X*4HC6MP* 7X.4HCEBP ? 7X » 4HXM IN 9 5X, 6HR S I SA V * 8X , 3HEN I , 7 X ♦ 4HCF PRO 909 
??I/5X*6HREXSAV) FFS 


6 NO 


PRO 911- 


57 



1 AL3CAL . - Subroutine AL3CAL computes coefficients for use i- n 

2 the calculation of density profiles. 

5 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
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o o o <“> r> n o n o n o vi 


SUBROUTINE AL3CAL 


1 


ALC 
ALC 

COMPUTE ALPHAI3) EXPONENT IN OUTER BOUNDARY LAYER REGION ALC 

FOR USE IN STATIC ENTHALPY MODIFIEO CPOCCO EXPRESSION ALC 

ALPHA (3 ) = ALM IN AT START OF TRANSITION ALC 

AL P HA 1 3 ) = LINEAR VAR I ATI bN IN TRANSITION REGION ALC 

ALPHA (3 ) =ALX AT END OF TRANSITION ALC 

ALC 

COMMON XLSH»XLSH1, THCR, Jt IM, KL IM, TXLCL (450 I ♦ TYL ( 4501 ,TSI450) ,TP ( 45 ALC 
10) .TXLI450) .TYLS1450) ,T$S(450) ALC 

COMMON ENX.FPOPT, ALX.RAF, ALM IN,C0P T, STHCR ,T l , T2 , L , XV 0, P $ I ALC 

COMMON CMTOPT ALC 


COMMON ALGNt AN, ANZ, AP, AVAR, AW, AX ,CEB ,CE BP , CEM,CEMP ,C F8MT ,CFB2,CF£R ALC 
1R,CFI ,CFMT,CF2,CF2 I ,CN ,COE 1 , C0E2 »C0E3 ,CT HCR , DEL, DEL A M , DELS ,OERR , DN ALC 
2 ,DPVAR,DRRVAR,DRV AR,OSTH,DUVAR,E,EK,EL,FLT,ElVO, tMU, EM V AR, EMX, EN , E ALC 
3NGN,ENI , ERR,FC,FCCF,FCCFLG,FCF,FCFPR,FD,FOPR,FRkt, FR TH. G , GC. , GX, H, H ALC 
4 AW, HHAT, HP ,HT ,HVAR,HW,H2, ICELL, I I , IN, JJ, JJLI M,JN,K»K K, KN ,LLI M ,NKW, ALC 
5NN.N0.NXINT, PATM ,P I V AR ,PR , PR P »PR W , RBV AR , RE T , RETH* RHUU I , RHOW, R 0, ROP ALC 
6 , ROV AR, R OW,RR I ,RP N ,RRT VAR , RR X, RSEPR,R SI S A V,R SLVAft , RX ♦ SHE AR , SP , S VAR ALC 
7 ,SW,SX, TAW, TEMP, TEMPI 0,TEMPU, TEMP12, TEMP 14, TEMP 2, TEMP J.TIEMP4, TEMP ALC 
85,TEMP6,TEMP7,TEMP8,TEMP9,TEP,TI VAR,TK,TPP,TAAN,TTU ,TW,TX,WVAR, XI ALC 


?N,XMIN,X2REX,Z,ZMAX» ZMIN 
REAL IN, JN,KN 

COMMON F<3),A(3) , ALPHE (3) , XI NT (99 ) ,TWT 199 ) , l TABl ( 6), 
l(6»,DXLTABI201 , DELK ( 2 >,R SLG( 2 ) « ALGI 2 ) ,FNG I 21 . AN2 ( 7) 
COMMON FPXT(20),ERXLGTI20 I ,FCXT( 201 , FCXLGT ( 20) , F*TB< 
IFCTBI 20) .FCLGTI 20) , XWt 1001 ,FIN61 100 ) , RSLW (1 00) . SHcER 
2( 160) ,PI (160) ,XC( 160) ,RB( 160),W( 160) , RRT ( 160) , XMAXTB 
3 I , OR 0 XT I 160),DP0XT( 160 1 , ORBD XT ( 160 ) , V AR (2) ,OEkU > , CU 
40),RRTSAV(160) ,XSAV( 160),RSLSAV( 160) .RFXSAVl 160) ,ENS 
5160) ,TKTAB130) ,PRT AB I 210 » , PA TAB! 7) , XKWt 160) , wKWI 160) 
COMMON / BLOCK/ PLT 1 1 160) , PLT 21 160 I ,PLT3f 160 ) ,PLT4 ( 16 
1LT6I 160) ,PLT7( 160 8 ,PLT8( 160) ,PLT9( 160 ) , PLT 10 I lbO i ♦ PL 
2 I 160 ),PLT 131 160), PLT 14 1 160), PIT L 5 ( 1 60 ) »NKWSA V 
IF ICUVARI 1 )~XMIN S 2,1.2 

X/U TRAN) ,X/U TURR t .ALPHA II I I TRAN) , ALPHA!! I I TURB) , 
A1=0, ALPHAI*1, ALPHAI 1=1 ., Alt 1=0, BI l 1 = 1 . ARE INPUT 
B I FROM SUBROUTINE EDGE 

AL PHE (3 ) = ALM I N 
GO TO S 


ALC 

ALC 

TA6IN(6)»TA8 JNALC 
ALC 

20) , FRLGT ( 20 ) , ALC 
(100)tX( 160) ,S alc 
( 20) ,DUOXT( 160ALC 
VAR ( 2 ) ,WS AV ( 16 ALC 
AV ( 160) ,CFSAV( ALC 
.KSLKW ( 160) ALC 
0) , PLT5I 160) ,PALC 
Til ( 160) .PLT12ALC 
ALC 
ALC 
ALC 
ALC 
ALC 
ALC 
ALC 
ALC 
ALC 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
3B 

39 

40 

41 

42 


59 



n n o n ^ uj n o i\j 


IF ICUVARS U-X2REX* 3*3,4 

ALC 

43 


ALC 

44 

At P HA II t LINEAR BETWEEN TRANSITION AND TURBUENT (EQl6i 

ALC 

45 


ALC 

46 

AL P HE $31=1 (CUVARl 1 I -XM !N * / 1 X 2R EX-X* I N ) >* 1 ALX- ALM I N 1 * ALM I N 

ALC 

47 

GO TO 5 

ALC 

48 

ALPHF«3$ -AL X 

ALC 

49 


ALC 

50 

B T I (E017& 

ALC 

51 

ATI 

ALC 

52 


ALC 

53 

TEP=F< 3&*.1**ALPHEC 3* 

ALC 

54 

F ( 2 ) = ( T FP-F$ n*.01)/9.E-2 

ALC 

55 

AS 2 S=TEP-#1*F( 2 B 

ALC 

56 

RETURN 

ALC 

57 

END 

ALC 

5 8- 


6o 



1 CFA . - Subroutine CFA computes skin friction coefficient by seven methods 

2 VanDriest (K ), Spalding-Chi I (R ), Eckert's reference enthalpy 

€x ex 

* (R ) « Eckert's reference enthalpy (R ), Eckert's reference enthalpy 

? ex eX MIN 

4 (R £ g) , Spalding-Chi I (R ), Spalding-Chi II (R e0 ). 

5 
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3 

k 
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t 


SUBROUTINE cfa cfa 

COMPUTES HEATING RATES AND SKIN FRICTION BY CFA 

VAN DRIEST (PFX) METHOD CFA 

SPALDING CHI (REX) METHOD CFA 

ECKERTS REFERENCE ENTHALPY (REX) METHOD CFA 

ECKERTS REFERENCE ENTHALPY IREXMIN) METHOD CFA 

ECKERTS REFERENCE ENTHALPY ( RETHET A ) METHOD CFA 

SPALDING CHI (RETHET A I METHOD (EQ22) CFA 

SPALDING CHI (RET HET A ) METHOD < E02 11 CFA 

AND WRITES OUTPUT CFA 

COMMON XLSH,XLSHl ,THCR, JL IM, KLIM, TXLCLI 450 ) , TYL ( 450) ,TS<450) ,TP(45CFA 
10>,TXL( 4505* T VLSI 450 UTSS ( 45 01 CFA 

COMMON ENXiFPQPT, At X, RAF* ALM I N , COPT , S THCR , T I , T2 , L , XV U, P S ! CFA 

COMMON CMTOPT CFA 


COMMON ALGN, A N , AN l , AP , AV AP , A W , AX , C EB , C EBP , C EM ,C LKP , C FBMT ,CFB ? , CFERCFA 
IR,CFI,CFMT ,C F ? ,CF 2 ! ,CN,COE L, C0E2 ,C0E3 ,CTHCR , DEL , UcLA M,QELS,DF RR , DNCFA 

2 ^ OP V AR 9 ORB VAR , OR V AR * DS TH ♦ DUV AR,E,EK P EL,ELT , ELVU, EMU, EM VAR , EMX , EN ,ECFA 

?NGN , ENI ,ERR ,FC,FCCF ,FCCFLG,FCF»FCFPR f FQ,FDPR,FKkE,F* TH , G , GC , GX, H, Ht FA 
4 AW, HHAT, HP, HT,HVAR,HW,H2, I CELL t II t IN, J J f J J L I M, J N , K . K K , K N , L L I M , NK W , CF A 
5NN,N0,NXTNT,PATM,PI VAR, PR . , PR P, PR W ,RBV AP ,RFT , RETH, KHUUI , RHOW, RCJ, »0P CFA 
6,R0VAR, ROWtRRI ,RRN«RPTVAft , RR X, RS ERR , R $ t S A V ,R SL V AR , RX ♦ SHEAR, SP, SVARCFA 
T, SW, SX, TAW, TEMP , TEMPI 0, TEMPI 1 , TE *P1 2 , TE *P 1 4 , T EMP2 , T fc MP 3 , T EMP4 f T F*PCF A 
85,TEMP6, TEMPT, TEMP8,TEMP9,TFPt II VAR , TK ,T PP f TRttN, T 1 1 1 ,T M, T X, WV AR , XT CFA 
9N,XMTN, X?RFX,Z,ZMAX,ZMIN CFA 

REAL IN,JN,KN CFA 

COMMON F m,A<31 , ALPHE(3UXtNT<99) ,T WT ( 99 \ , l T ABL l 6 ) , T Att IN ( 6 J, T A R J NC FA 
1 <6 1,0X1 T ARC 20 ) , DELK < ? I ,R SLGC 21 ,ALG< 2» ,ENG( 2NAN21 70 CFA 

COMMON FRXT(201 , F R XLGT ( 2 0 & , F CXT ( 20 I, FC XL GT ( 20 I , FKTtt* 20) , FRLGT < 2 0 ) , CFA 
l FCT B ( 20 I , FCL GTI 20 S , XW ( 100) V FIN6< IOOI,RSLU< 1001 ,ShEtR U00ft,X< 1601,SCFA 
? ( 1601 ,PI i 160 5 , XC< 1601 tRB( 160 1 ,W( 160 5 , RRT ( 160 I , XMAXTB l 2 01 ,OUDXT( 160CFA 

3 I ,ORDXT ( 160 \ » DPDX T ( 1 60 I , DR BD XT II 60 > ,VAR( 2) vDdRt 2 I ,CUVAft( 21 ,WSAVU6CFA 
40 B ,RRTSAV< 16 0! pXSAVf 160B , RSL $AV( 16Q),REXSAV< 160UENSAV( 1 60 1 , C FS A V ( CFA 
51605 * TKT AB( 30) pPRTA9(2iOJ , PA TAB( 71 »XKH< 160),WKW( 1601 ,MSLKW( 160) , IGCFA 


6 AS CFA 

COMMON XXI CFA 

COMMON ACFT(22),TREXT(22) , ACFLGTI 22),TRLGT< 22) ,k£XCF ,HU,XO CFA 

EXTERNAL FO FZ CFA 

EXTERNAL FOFZA CFA 

IF (XOVARUH 1,1,2 CFA 

CALL CMT (CFMTA& CFA 

CALL RFC AL IRAFA) CFA 

TERMl*,2$EMVAR*EMVAR CFA 


1 

2 

3 

4 

5 

6 
7 
fl 
9 

10 

11 
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T.OE 1=TW/ TIVAR 
AVOSGl*TERMl/COEl 
BVOi=ll. ♦TERM l-CO Ell /COE 1 
8vosoi=Bvoi*evm 

AL V D l = l AVDSQmVDSQl-BVOll /SORT! 4.* AVOSQl ♦BVOSQl I 
8EV0l=BV0l /SORT (4 . *AVDSOl ♦BVOSOl 1 

TR E XM 2 » 5T* t ASINf ALVD 11 ♦ AS IN ( BEVD1 I t**2*REXCF)/( TERM l*COEl**. 76 I 
TRLG*ALOGlO(TREX) 

CALL 01 SCOT ITRLG ,TRLG,TRLGT , ACF LGT , ACPLGT , Oil. 22*0. AVLGl 
AVCF= 10 • ** AVLG 

CF2FPAM AS INI AL VOU +AS IN l BEVDl ) I **2* 4VCF/ t 2 .*16*1X11 

CF2A*CFMTA*CF2FPA 

CALL WRTS I CF2 A , R AF A ,CFMT A > 

CALL VGAUSS t 0* 1 . , L , ANZ ♦ FOFZ ,F Z, l ,NN I 
FCB* 1 . / ( ANZ*ANZI 
CALL CMTl (CFMTB) 

CALL RFC AL1 IRAFBI 
FRX=FRTH/FCB 
FRXRX=REXCF*FRX 
FP XG 3 ALOGIOI FRXRX J 

CALL OISCOT IFPXGsFRXG*FRXLGT,FCXLGT,FCXLGT,JU.2J»G»FCLG) 

FCFO10.**FCLG 

CF2FPB=FCFC/I2.*FC9> 

CF?8=CFMTB*CF2FPB 
CALL WRTS <CF2B»RAF8»CFMTB1 
CALL CMT (CFMTCI 
CALL RFC AL l IRAFC1 

HP=.S*IHWFHVARIf.22*IHAW-HVAR| 

CALL RGASH ( P IV AR , POP* AP, HP, TPP, SP , ERR» l GAS I 

EMUT=(TIVAR/TPP)**1.5*(TPPf199.6)/(TIVAR»198#6I 

CF2FPC= . 370/ ( IAL0G10(REXCF*( ROP/ROVAR l*EMUT9 I** 584 !*• 5 

CF2C=CFMTC*CF2FPC 

CALL WRTS (CF2C.R AFC, CFMTCI 

CALL CMT (CFMTDI 

CALL RFC AL I (RAFDI 

RFX=RETH*VARUI/VAR(21 

REXMI N=REX*t l.-XMIN/VARl 1 1 I 

HP= . 5*1 HWfHVAR I +. 22'MHAW°HVA8 9 

CALL RGASH ( P I V AB , ROP , AP » HP, TPP, SP, ER 0 , IGAS > 

EMUT2=(T IVAR / TPP I **1.5*1 TP P+198.6 I /<T I VAR *198 .6 1 

CF2 FPO=. 370/1 ( ALOGIOIPEXMI N* I ROP/ROVAR S*FMUT2 ) I **2 .5 84 I * .5 

CF20=CFMT0*CF2FP0 

CALL WRTS (CF?D,RAFD, CFMTDI 
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CFA 
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CFA 
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CFA 
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CFA 
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CFA 

49 

CFA 

50 

CFA 

51 

CFA 

52 

CFA 

53 

CFA 

54 

CFA 

55 

CFA 

56 

CFA 
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CFA 

58 

CFA 

59 

CFA 

60 

CFA 

61 

CFA 

62 

CFA 

63 

CFA 

64 

CFA 

65 

CFA 

66 

CFA 

67 

CFA 

68 

CFA 

69 

CFA 

70 

CFA 

71 

CFA 

72 

CFA 

73 

CFA 

74 

CFA 

75 

CFA 

76 

CFA 

77 

CFA 

78 

CFA 

79 

CFA 

60 

CFA 

81 

CFA 

82 

CFA 

83 

CFA 

84 

CFA 

85 
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r>nn -j> u o n n non non n o r> 


2 CALL CMT (CFMTE) CFA 86 

CALL RFCAL1 1RAFE } CFA 87 

H°* « 5*( H WfHV ARlf.22*(HAW— HVAR) CFA 88 

CALL RGASH ( P IVAP .» ROP , AP , HP, TPP, SP ,ERR « IG AS 1 CFA 89 

EWUT3=$OPT< TI VAR /TPP 8# 11. *220. *1 0 .** ( - 9 . /TPP J /TP? »/{ 1. «-2 20. * 1 0. *«■( CFA 90 
1-9./TIVAR8/TIVARI CFA 91 

R8ARTH=R ETH*EMUT3 CFA 92 

RBTLG=aiOG10!RBAATHP CFA 93 

CFI2F=.5/U 17.0B*RRTLG«-25.1l 8*RBTLGF6.0l2i CFA 94 

CF2FPE=CFJ2F/t TPP/TJVARI CFA 95 

CF?E=CFMTE*CF2FPE CFA 96 

CALL WRTS «CF2F P RAFF,CFHTE8 CFA 97 

CALL CMT 1 (CFMT1I CFA 98 

CALL RFCAL1 IRAF1I CFA 99 

CFA 100 

CALL VGA USS • FOF l CFA 101 

CFA 102 

CALL VGA USS (O^lo plpANleFOFljFZplpNNI CFA 103 

CFA 104 

COMPUTE FC FROM EO(22SOP 1211 CFA 105 

CFA 106 

FCl=t./< ANZ*ANZ8 CFA 107 

CFA 108 

INITIAL ESTIMATE X CFA 109 

CFA 110 

CF21=.9375E-2$tFRTH*RfTH>**(-,2148) C FA lu 

CFA 112 

SOLVE FOR X USING NEWTONS METHOD AND CFERR FOR ERROR CRITERIA CFA 113 

CFA 114 

FCF=RETH*FRTH-1 o/ 5 6o#CF2 l t- ( 1 . / ( EK*E 1 }*(< l.-2«<'CF21**«>5/EK I *EXPI EKCFA 115 
1*CF21**( — • 51 8 f2»*CF21* <i » 5/FK«-1.--EK* , ! ! 2 / ( 6.*CF21I-£R*<* 3*CF21**I-1 .5) CFA 116 
2/l2.-EK**44CF21**<[-2) /40.-EK**5*CF2l*#t-2. 51/L80. > CFA 117 

FCF PR=l . /( 6. *CF21<»CF21 )->(l./(EK*EH*( EXP I FRoCfai**!- .51 J «( 1./CF21-CFA 118 
1 EK*CF21**I-l„51/2o-CF21**(-..5 5 /EKl«-CF2l*M-.5J /fcN*EK*EK / (6.*CF2l*CCFA 119 
2F?1> frEK-sx^CF?!#*!- 2.58/9. *EK**4#CF21*’ l ><-3 »/20.frEN*«> 5*CF 21** (-3. 5) CFA 120 

CFA 121 

H2=—FCF / FCFPR CFA l22 

IF (ABSIH2/CF2U-CFERR1 5,5,4 CFA 123 

CF2 1=CF2 l ^2 CFA 124 

GO TO 3 CFA 125 

CFA 126 

SKIN FRICTION Cf/2 CFA 127 

CFA 128 
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n r> o 


5 


CF2l*CF21*CFMTi/FCl 

CALL WRTS <CF21 # R Af 1 1 1 FMT 1 > 

CALL CMTl (CFMT2I 
CALL RFC AL i ( R AF2 1 

CALL VGAUSStFOFZA 

CALL VGAUSS (0*1. »L*AN2 f F0FZA»FZ* | » NN I 
FC 2- l ./ 1 ANZ*AN7 1 


CF22=.9375E-2*< FP 
FCF=RETH*FRTH-1 ./ 
l*CF22**<-.5! 1*2.* 
2/12.-EK**4*CF22** 
FCFPR^l .M6.*CF?2 
1EK*CF?2**(-I .51 fl 
2*221 +EK**3*CF22** 


TH*RETH> **| — .21 43 I 

( 6 **CF 22 l-< U/C EK*E> )*[ ( U- 2 **CF 22 * 
CF 22 **. 5 /EK*W- EK** 2 /f 6 . *CF 22 J - t K** 
f - 2 >/ 40 *~EK** 5 *CF 22 **(- 2 . 5 >/ 180 . 1 
*CF 22 )- ( 1 ./<EK*E> >MEXP<FK*CF 22 **l- 
.-CF 2 2**<-.5 > /EM+CF 22 ** l-. 5 )/EKfE< 
{- 2 . 5 )/ 8 .+EK** 4 *CF 22 **t- 3 ) / 20 . *EK** 


CFA 129 
CFA 130 
CFA 131 
CFA 132 
CFA 133 
CFA 134 
CFA 135 
CFA 136 
CFA 137 
CFA 138 

*.5/EK)*EXP(FKCFA 139 
3*CF22**(-1.5>CFA 140 
CFA 141 

.51 >*< i. /CF22-CFA 142 
*EK/ <6.*CF22*CCFA 143 
5*CF22**<~3.5)CFA 144 



3/72. \ 

CFA 

145 


H2=~FCF/FCFPR 

CFA 

146 


[F ( ABS<H2/CF22)-CFFPR! 3,9»7 

CFA 

147 

7 

CF2 2- CF 2 2 *H2 

CFA 

148 


on TO 6 

CFA 

149 

8 

CF22=CF2?*CFMT2/FC2 

CFA 

150 


CALL WRTS ^CF22»RAF2.CFMT2) 

CFA 

151 


RETURN 

CFA 

152 


END 

CFA 

153- 
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1 CFCAL.- Subroutine CFCAL computes the VanDriest II F c function to correlate 

2 the skin-friction data. 
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o o o r> n n 


c 

c 

c 

c 

c 

r. 


SUBPOUT! NE CFCAl 

CALCULATES SKIN FRICTION FOR FIRST ITERATION 
OR FOR OTHER ITERATIONS BEYOND TRANSITION REGION 
COMPUTES MANGIER TRANSFORMATION FACTOR FOP 
VAN DRIEST II ( RFTHETA ) METHOD 


CFC 

CFC 

CFC 

CFC 

CFC 

CFC 

CFC 


COMMON XLSH. XL SHI . THCR . JL I M» KL IM. TXLCL4450) t T YL 1450) .TSC 450) .TPI45CFC 
10) .TXLI450I.TYLSI450I .TSSI *501 CFC 

COMMON ENX.FPOPT , ALX ,RAF . ALMT N.COPT, STHCR *T1 »T2,L . XV Q.PS I CFC 

COMMON CMTOPT CFC 

COMMON ALGN.AN.ANZ , AP , AVAR , A W , AX ,CEB, CEBP .CEM.CEMP ,C FBMT ,CFR2 .CFERCFC 
lR,CFt,CFMT»CF2,CF2 I.CN.COEl, C0E2 .C0E3.CTHCR * DEL »OtLA M .OELS »OERP » ONCFC 
2,DPVAR,0RBVAR.0RVAR,DSTH.0UVAR,E»EK,EL,ELT .ELVO.EMU# EM V AR. E*»X , EN * FCFC 
3NGN.ENI . ERR t FC» FCCFt FCCFLGt FCF, FCFPR» FD.FDPR .FRh£ . FR TH» G.GC.GX, H.HCFC 
4AW.HHAT.HP.HT . HVAR . HW » H2 . I CE LL » I I » I N» J J, J JLl M, JN, K.KK.KN ,LL IM , NKW, CFC 
5NN.N0.NX INT.PATM.PIVAR.PR.PRP.PRW.RBVAR.RET.RETH.RHOUlf RHOW.ROfROPCFC 

6 .ROVAR. ROW »RR l » PP. N * RRT VAR ,RR X , RS ERR »R S IS AV ,R$LV AR . KX . SHE AR, SP , S VAR CFC 
7 « SW . SX. T AW » TEMP.TEMP 10»TEMP1 1 »T6 MP12» TEMP 14* TEMP2 . Tt MP 3 » TEMP4.TEMPCFC 
R5»TEMP6.TEMP7,TEMP8,TEMP9,TEP,TI VAR ,TK ,TPP ,TRAN, TTil , T U , TX .WV AR * X! CFC 
9N,XMIN,X2REX.Z,ZMAX,ZMIN CFC 

REAL IN* JN«KN CFC 

COMMON F (3 ) ♦ A (3 ) ♦ ALPHE (3 ) » XI NT499 ) . TWTI 99 I « ZTABL (6)»TABIN<6)»TAB JNCFC 
1 C6) *OXL T ABI 20) ,DELK 1 2 ) .RSLGI 21 . ALGI 21 . ENG( 2 1 . AN2 ( 7 > CFC 

COMMON FRXTl 20 ) , FR XLGT ( 20 ) .F CXTC 20 > . FCXLGT { 201 , FRTBI 20 ) .FRLGT I 20) * CFC 
1 FCTB ( 20 ) .FCLGT I 20 ) .XWUOOI ,F IN6( 100 ) . RSLW ( 100) .SHEER UOOI »X( 1601 ,SCFC 
21 160) .Pit 160) .XCI 160) .RBI 160), Wt 160! ,RRT( 160 ) .XMAXTB 420 ) ,DUDXT I 160CFC 
3 ) * OR OXT ( 160 ) ♦ DPDXT 1 160 1. ORBOXT ( 160 l»VAR(2l.OER42l .CUVAR4 2J ,W$AV( 16CFC 
40) ,PPT$AV(160I .XSAV1 160) .RSLSAVI 160) . REXSAV I 160 ) » ENS AVI 160),CFSAVI CFC 
5160).TKTAB(30>.PRTAB(210),PATABI7I,XKW1 160) . WKWt L60) .RSLKHl 160) CFC 

COMMON /BLOCK/ PLT1 (160) .PLT2I 1601 ,PLT3( 160) »PlT 4I 1601 .PLT5I 160) ,PCFC 
1LT6I 1601 .PLT7I 160 ) . PLT 84 160! ,PLT9( 160 ) .PLTtOI 160) .PL Till 160) ♦ PLT12CFC 
21160) »PLT13( 160) . PLT141 160 1 » PLT1 5 1 160 ) » NKWS AY CFC 

EXTERNAL FOFZ CFC 

EXTERNAL FOFZ A CFC 

CFC 

IS FLAT PLATE CFC 

CFC 

IF (FPOPT) 1.2.1 CFC 

CFC 

MANGLER TRANSFORMATION *1. CFC 

CFC 


1 

2 

3 

4 

5 

6 
T 
8 
9 

10 

11 

12 

13 

14 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 

25 

26 
2 T 
28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


71 



o n o onoo onru>)Mnno 


1 CFMT=1. 

GO TO 3 

MANGLER TRANSFORMATION EQJ2M 

CFMT=l.l76 
CONTINUE 

CALL VANOCF 

CALL VANOCF 

INTEGRAL USING GAUSS 5 JNTERVALS* APTS PER INTERVAL 
CALL VGA USS 7 FOFZ 

CALL VGA USS ( 0 , 1. ,L , ANZ »FOFZ « FZ, 1 , NN> 

COMPUTE FC FROM EOI22* 

FC=1./IANZ*ANZ> 

RETURN 
ENO 


CFC 

43 

CFC 

44 

CFC 

43 

CFC 

46 

CFC 

47 

CFC 

48 

CFC 

49 

CFC 

50 

CFC 

51 

CFC 

52 

CFC 

53 

CFC 

54 

CFC 

55 

CFC 

56 

CFC 

57 

CFC 

58 

CFC 

59 

CFC 

60 

CFC 

61 

CFC 

62 

CFC 

63 

CFC 

64- 
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1 CHECK.- Subroutine to be used by INT1A to allow certain logical control. 
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The control is not desired in this case and a dummy subroutine is 


inserted. 
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n n r> 


subroutine CHECK CHK I 

CHK 2 

DUMMY SUBROUTINE FOR RUNGE KUTT& CHK 3 

CHK 4 

RETURN CHK 5 

EP4n CHK 6- 
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1 CMT .- Subroutine GMT computes Mangier transformation factor for VanDriest 

2 and Eckert's skin- friction coefficient. 


3 

k 

5 

6 

7 

8 

9 

10 

11 

12 

13 

Ik 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2k 

25 



75 


NASA-Langley Form 22 (Apr 69) 




n n 


1 

2 
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SUBROUTINE CMT (CFMTX) 

COMPUTES MANGLER TRANSFORMATION FACTOR FOR 
VAN DRIEST AND ECKERT SKIN FRICTION 
COMMON XLSH,XL$H1,THCR, JL I M, KL I M ♦ T XLCL ( 45 0 ) , TYL4450) 
10UTXU450),TYLS(450) ,TSSI45 01 
COMMON ENX,FPOPT, ALX,PAF, ALMIN,C0PT,STHCR,Tl,T2,t,XV 
COMMON CMTOPT 

COMMON ALGN, AN* AN l , AP , AV AR , A W f AX , C E B, CEBP , CEM,CEMP , C 
lR,CFI,CFMT,CF2*CF2I*CN,COEl,CaE2,COE3,CTHCR .DEL,DELA 
2*OPVAR,ORBVAR,DPVAR,DSTHf0UVAR*E,EK,EL,ELT,ELVQ,fcMU« 
3NGN,ENI * ERR,FC,FCCF, FCCFL G, F CF , F C FPR, FO, FOPR ,FRRE , FR 
4AW*HHAT,HP ,HT,HVAR ,HW,H2 , I CEIL, l I , l N» JJ , J Jl I M, JN, K ,K 
5NN,NG,NX INT, P ATM * P I V A R, PR , PR P , PR W , R BV AR , R E T , RETH, RHO 

6 ,ROVA R * ROW , P R ! ,PRN ,RRTVAR • RR X , RS ERR t RS I S AV i RSLV AR , RX 

7 f SW » S X f TAWf TEMP, TEMPlOf TEMPI It TEMP 12» TEMP 14, TEMP Z , TE 
B5,TEMP6, TEMP7,TEMP8 ,TEMP9 , TE P , TI VAR ,T K ,T PP , Tft AN, TT1I 
9N, XMIN, X2REX, Z,ZMAX, ZMIN 

REAL IN,JN,KN 

COMMON F13U A«3K ALPHEOI, XINT(9^l»TWTI99lf ZTABUol * 
I(6),DXLTABI20I, OELK 1 2 ) ,RSLGC 2 ) » ALG( 2) , ENG I 2) # AN2( 71 
COMMON FRXTI 20 ) , FR XLGT < 20 ) ,F CXT< 20 ) , FC XLGT % 20 ) , F R TBI 
1FCTBI 201 ,FCLGT< 20) , X W <100 ) , F ! N6( 100) , RSLVM 100) * SHEER 
2(160), PH 160I,XC( 160) * RB f 160) » W( \ 60 ) , RRT U 60 ) , XM AXTB 
31, OR OXT 5 160 )f OPOXTI 160 3, OP BD XT 1 1 60 ) ,VAR< 2) ,OER< 2) #CJ 
40) # PR TSA V! 160) tXSAVf 160) ,RSL SAVt 160) ,RFXSAVI 16GJ „ENS 
5160),TKTAB(30) 9 PRT AB(210),PATAB( 7),XKW( 160) *WKW< 160) 
6 AS 

COMMON XXI 

COMMON ACFTI22) ,TPEXT(22I , ACFLGT C 22 ) , TRLGT t 22 ) , REXCF 

IF (FPOPT) 1,2,1 

CFMTX^l* 

GO TO 3 
CFMTX^l * 1 76 
RETURN 
END 


CMT 

CMT 

CMT 

,TS ( 450 ) ,TP(45CMT 
CMT 

0,PSI CMT 

CMT 

FBMT ,CFB2 , CFERCMT 
m,oels,oerr,oncmt 

EM V A R, EM X , FN, FCMT 
TH,G,GC,GXfH ,HC MT 
K,KN,LLIM ,NKW, CMT 
U1 ,RHOW, RO,ROPCMT 
, SHE AR, SP , SVARCMT 
MP3, TEMP4, TEMPCMT 
,TM,TX,WVAR , XI CMT 
CMT 
CMT 

TABIN(6),TABJNCMT 

CMT 

20) , FRLGT 120), CMT 
(100), X< 160) , SCMT 
(20) fOUOXTI 1 60 CMT 
VAiU 2) , WS A V 1 16CMT 
AVI 160KCF$AV(CMT 
»R$ LKW( 160) , IGCMT 
CMT 
CMT 

, HU , XO CMT 

CMT 
CMT 
CMT 
CMT 
CMT 
CMT 
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1 CMT1 .- Subroutine CMT1 computes Mangier transformation factor for Spalding- 
^ Chi skin-friction coefficient. 
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c 

c 


1 

2 
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SUBROUTINE CMTl C CFMTX 5 CMi 

computes mangler transformation factor for cmi 

SPALDING CHI SKIN FRICTION CMI 

COMMON XLSH* XLSH1 # THCR > it I M, KL IM , TXLCU 45 0 1 , T YL < 450) »TS<450) *TP(45CM1 
10)* TXH 4 50) , T YL St 4 50 5 , TSS I 45 0) CMI 

COMMON ENX,FPOPT, ALX,RAF, AIM I N f C OP T v S THCR ,Tl,T2,LuXV0irP$! CMI 

COMMON CMTOPT CM! 


COMMON ALGN, AN, AN 2, AP, AV AR , A W, AX , CEB, CEB* ,CEM,CEMP ,C FBMT ,CFB2 , CF EP CM I 
1R,CFI*CFMT , C F 2 , C F 21 ,CN ,COE 1 , C0E2 ,COE 3 , C THCR , DEL , DEL A M, DELS ,0E RR , ONCMl 
2,0PVAR,DRBVAR,0RV AR , DSTH, DUV AR,E , EK, EL, EL T, EL VO, EMU* EM V AR , EMX , EN f FCMl 
3 NGN »FN[ ,ERR*FC?FCCF ,FCCFLG fFCF,FCFPRfFO,Fr)PRfFRRt,FR.TH,G,GC»GXfH P HCMl 
4AW, HH AT, HP, HT,HV A R,HW,H2, I CELL ♦ I l , IN, J J ♦ J JLI M, jiNJ, K* K K, KN,LL I M ,NKW f CMi 
5 NN, NO, NX INI, P ATM, PI VAR, PR , PR P , PR W , RBV AR , RET 9 RETH , RHOU I , RHOW , RO, ROPCMI 

6, RQVAR,P.0W,RRI,»RN,RRTVAP ,RRX,R$FRR,P si sav,rslvar,rx , shear, sp,svarcmi 

7, $K ,SX, TAW, TEMP, TEMPlOtTEMPU • TE MP 12 , T EMP 14 1 TEMP 2 * T E MP3 ♦ T EMP4 , T EMPCMI 

85* TEMP6, TEMPT, TEMP8,TEMP9 7 TEPoTI VAR , TK , TPP , TR AN, T T li , T * , T X , WV AR , X! CMI 
9N,XMlN f X7REX, Z,ZMAX P ZMIN CMI 

REAL IN, JN, KN CMI 

COMMON Fm ( M3) »ALPHEB) * XI NTt«m,TWT<99 5 , ZTA&L $ 6), TAb INI 6) * TAB JNCM1 
1 (6) ,DXLTA8t20),DELKt2),RSLGS 2 ) , ALGt 2 ) ,ENG ( 2 ) * AN24 7) CMI 

COMMON FRXT|20KFRXLGT(20) rFCXTI 20 It FC XL GT t ZO ) * F h T8( 20) ,FRLGT I 20 ) ,CM1 
1FCTBI 20) ,PCLGT( 20 ) , XWUOO) ,F I N6C 100) , R SLW U 00 ) , SrtfcER (l 00 I ,X (160 ) , SCMI 
2(U>0)*PI<160I,XC( 160I,RB1 160I,W| 160),RRT< 160) *XMAXTB42J) ,OUDXTt 160CM1 
3 5 P DRDXTt 160) *DPDXTI 160) , DR RD XT t 1601 , V AR t 2 ) *DEfU 2 1 ,CJ VAR< 2 ) , WS AV ( 16CM1 
40KRPTSAVI 160) ,XSAV( 160),RSLSAV( 1605 * P EXSA V< IbJ) P ENSAV< 1605 ,CFSAV(CM1 
5160) *TKTABI 305 ,PRTAB C210) , PA TABI 71 ,XKWI 160) , WKW( 160) ,RSLKW< 160) , IGCMl 


6 AS CM! 

COMMON XXI CMI 

COMMON ACFT( 2 2 ? , T R EXT < 22 ) , ACFLGTt 22), TRIG! I 22KREXCF ,HOrXO CMI 

IF ( f POP T ) 1,2,1 CM 1 

CFMTX* W CMI 

GO TQ 3 CMi 

CC«3,-, 3091 36*< VAR I 1 l-XVO) / C XM AXTB ( 20 ) -XVO 1 CMI 

CFMTXM 3o 4641 01 6- SORT tl2,-4,*CC) 3 72. CMI 

RETURN CML 

F NO C*l 
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19 

20 
21 
22 

23 

24 

\25 


Subroutine CRRD reads inviscid flow field from tapes 15 » l6> 22 
CARD = 0 is input. This subroutine computes tables of x / r n » r t/ r r 


s, p, on body and r g /r n , s on shock. 
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1 

2 

5 

4 

5 

6 

7 

8 

9 

10 

n 

12 

15 

14 

15 

16 

17 

18 

19 

20 
21 
22 
25 


24 


25 


Set up table of body points x CI / r n > r^/r , s, p, x/r n 

IF (x CL /r n _1+sin °c ) = ° » x/r n = 003-1 (l - x CL /r n } 

IF (x CL /r n ~l+sin 0 c ) > 0 , x/r^ = Tr/2-0 c +(x CL /r n -l+sin 

Set up table of shock points r g / r n > s 

Save count of number of body and shock points in tables 

^ r 

( RETURN ) 


8o 


1 )/cos0 
c c 
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SUBROUTINE CRRO 


CRD 

i 

c 



CRD 

2 

c 

READ TAPES FROM AMES BLUNT BODY AND CHAR ACTERiSU CS PROGRAMS 

CftO 

3 

c 

SET UP TABLES OF X/L CENTEPL INE, X /L BODY, BODY RAOIJ S, ENTROPY. 

CPD 

4 

c 

PRESSURE 


CRO 

5 

c 

SHOCK RADIUS. SHOCK ENTROPY 


CRD 

6 

c 

KL I M= COUNTOF SHOCK POINTS, LIMIT OF 

450 

CRD 

7 

c 

JLI M= COUNTOF BODY POINTS, LIMIT OF 

450 

CRO 

8 

c 



CRO 

9 


COMMON XLSH.XLSHl ,THCR, JLIM, KL IM. TXLCL ( 450 ) » TYL (450) . TS 1 450 1 , TP ( 45CRD 

10 


101 « TXLI A 50), TYLSI 4 50 I » TSS < 45 0) 


CRO 

11 


DIMENSION CHBIIO) , CHS(10.2I. BLBUOl 

. BL S ( 101 » 7 S VS HI 101 . SVBDI 10CRD 

12 


1 1 , SVSHt 10) 


CRO 

13 


REWIND IT 


CRO 

14 


REWINO 15 


CRO 

15 


REWIND 18 


CPD 

16 


J*0 


CRO 

17 

r 



CRO 

18 

c 

REAO TAPE 15 AMES MOC TAPE 


CRO 

19 

c 

x/lcl.y/l.q.theta.m.s.p, h* rho.pt 


CRO 

20 

c 

READ BODY ANO SHOCK PniNTS UNTIL XLSH 

1 REACHED 

CRO 

21 

c 

USE TAPES IT. 18.19.20.21 FOR INTERMEDIATE STORAGE (JF BODY, SHOCK 

CRO 

22 

c 



CRO 

23 

1 

READ (15.37) I CHB I I). 1-1,10) 


CRD 

24 


WRITE (6,375 ( CHB (II ,1 = 1 , 1 01 


CRO 

25 


IF (FNDFILE 15) 2.3 


CRO 

26 

2 

JM= J-l 


CRH 

27 


00 TO 7 


CRO 

28 

3 

WRITE (17,37) ( CHB (11,1=1,10) 


CRO 

29 


J = J + 1 


CRO 

30 


READ (15.37) ( CHS I I . 1 ) . I = 1 . 1 01 


CRO 

31 


WRITE 16.37) (CHS! 1.11.1=1.10) 


CRO 

32 


IF (CHS( l.LI-XLSHl 4.4.5 


CRO 

33 

4 

IF (ENOFILE 15) 5,6 


CRD 

34 

5 

JM= J— 2 


CRO 

35 


GO TO 7 


CRO 

36 

6 

WRITE (18.37) (CHS(I,n.I=>l. 10) 


CRO 

37 


GO TO 1 


CRO 

38 

c 



CRO 

39 

c 

IS ANGLE BODY=ANGLE SHOCK 


CRD 

40 

c 



CRD 

41 

r 

IF (XLSH-XLSH1) 9.15.8 


CRO 

42 


81 



c 


CRO 

43 

c 

READ TAPE 22 AMES MOC TAPE 

CRD 

44 

c 

READ TODY AND SHOCK POINTS UNTIL XL 5 H t REACHED 

CRD 

45 

c 

SAVE SHOCK FROM TAPE 22 

CRD 

46 

c 

SAVE BODY FROM TAPE 15 

CRO 

47 

c 


CRD 

48 

8 

REWINO 22 

CRO 

49 


REWIND 18 

CRO 

50 


L=0 

CRD 

51 

<5 

READ (22,371 tCHB(I) ,1*1,101 

CPO 

52 


WRITE <6,371 i CHB U ) , I« 1 , 103 

CRD 

53 


IE (ENOFILE 22) 10 P il 

CRD 

54 

10 

L L— 1 

CRO 

55 


GO TO 15 

CRD 

56 

1 1 

CONTINUE 

CRD 

57 


L=L*l 

CRD 

53 


READ 522,371 < C MS < I • l !«T * 1, 10 ) 

CRD 

59 


WRITE (6,375 (CHS < T , 1 > , l *1 ,1 0 1 

CRO 

60 


IF (CHS( 1.U-XLSH1I 12,12, 13 

CRO 

61 

12 

IF (ENOFILE 225 13,14 

CRD 

62 

13 

LM=L-2 

CRO 

63 


GO TO 15 

CRD 

64 

14 

WRITE 118,371 !CHSM,n,I«l* 101 

CRD 

65 


GO TO 9 

CRD 

66 

C 


CRO 

67 

c 

READ TAPE 16 AMFS BLUNT BODY TAPE 

CRO 

68 

c 

REAO BODY AND SHOCK POINTS UNTIL EOF 

CRD 

69 

r 


CRO 

70 

15 

K«0 

CRO 

71 


REWINO 16 

CRO 

72 


REWIND 19 

CRO 

73 


REWIND 20 

CRO 

74 

16 

READ (16*371 < BLB ( I ) , I *L » 1 01 

CRO 

75 


WRITE 16,375 ( BLB ( 11,1 = 1,105 

CRO 

76 


IF (ENOFILE 161 19,17 

CRO 

77 

17 

WRITE (19,371 (BLB(n, 1-1,101 

CRO 

78 


REAO (16,371 (BLSf 

CRD 

79 


WRITS 56,371 <BLS< I I* !>1* 10) 

CRO 

80 


IF (ENOFILE 161 19,18 

CRO 

8 1 

18 

WRITE (20,371 f 8LS < 1 1 , I* 1 1 10 > 

CRO 

82 


K=KH 

CRD 

83 


GO TO 16 

CRD 

84 

C 


CRO 

85 


82 



n non non 


PROM MOC TAPS SAVE ALL BOOY POINTS 

FROM MOC TAPE OMIT DECREASING X/L SHOCK PTS AND SAVE OTHERS 
FROM BLUNT BODY TAPE OMIT SHOCK POINTS WITH Y/L.GT.Y/L AT 
FIRST MOC SHOCK PT SAVED 

FROM BLUNT BODY TAPE OMIT BOOY PTS WITH X/L. GT. X/L AT 
FIRST MOC BOOY PT SAVED 

19 REWIND 17 

READ (17,37) ( CHB (11.1*1.10) 

REWIND 19 
REWINO 21 
J J = 0 

OD 21 KK*1,K 

READ II 9 »37> f RLB ( I ) * 1*1 , 10) 

IF IBUdl-CHBmi 20,20,21 

20 

WRITE (21,371 (BLBIIJ ,I»l,101 

21 CONTINUE 
REWINO 17 

DO 22 KK*1,J 
JJ=JJH 

READ (17,371 ( CHB (11,1*1,10) 

WRITE (21,371 (CHBl [> ,1=1 ,101 

22 CONTINUE 
LL*0 

REWIND IT 
REWIND 16 

READ (18,371 (CHS ( 1,21,1*1,101 
IF (XLSH-XLSH1I 24,23,24 

23 LM= JM 

24 DO 27 KK*l,LM 
DO 25 1=1,10 

25 CHSflfl »*CHS( 1,2) 

READ (18,371 ( CHS (1,21,1=1,101 
IF (CHS( Un-CHSI 1*2)1 26,26,27 

26 l.l *LL ♦! 

WRITE (17,37) (CHSf 1,1), 1*1*10) 

27 CONTINUE 
LL = LL*l 

WRITE (17,37) ICHSd ,2) ,1 *1,10) 

REWIND 18 
REWIND 17 

READ (17,37) ( TSVSM< I ) , I * 1 , 10) 


CRO 86 
CRO 87 
CRO 88 
CRO 99 
CRO 90 
CRD 91 
CRO 92 
CP.D 93 
CRD 94 
CRD 95 
CRD 96 
CRD 97 
CRO 98 
CRO 99 
CRD 100 
CRO 101 
CRD 102 
CRO 103 
CRD 104 
CRD 105 
CRD 106 
CRD 107 
CRD 108 
CRD 109 
CRD 110 
CRD 111 
CRD 112 
CRD 113 
CRO 114 
CRD 115 
CRO 116 
CRD 117 
CRD 118 
CRD 119 
CRO 120 
CRD 121 
CRD 122 
CRO 123 
CRD 124 
CRO 125 
CRD 126 
CRD 127 
CRD 128 


33 



o o o o o 


REWIND 20 
ML*0 

00 29 KK«i,K 

READ 120*37) ( 8L5 t I 1 1 1*1 * 10) 

IF (BtSl 2)-TSVSHi 2) ) 28,28,29 

28 ML * ML ♦ ! 

WRITE f 18*371 1BLS(Mtl«l f 10) 

29 CONTINUE 
REWIND 17 

00 30 MK*1*LL 
ML*ML*1 

READ (17*37) (TSVSHl I)« 1*1* iOl 
WRITE (18*37) (TSVSHUI* 1*1,10) 

3 0 CONTINUE 

SET UP TABLE OF BODY PT$ X /L CL * RB /L , S , R* X /L 
SET UP TABLE OF SHOCK PTS RS/LtS 

SAVE COUNT OF NO. OF BODY AND SHOCK PTS. IN TABLcS 

REWIND 21 
STHCR*SINf THCR) 

CTHCR =C0 $ ( THCR) 

PMT H“ 1 . 5 70796-THC R 
J =0 

DO 33 K J * l * J J 
J'JH 

READ (21*37) t SV8D U> • f= 1 , 10 I 
TXLCL ( n *S VBD I X ) 

TYL ( J ) * S VBO ( 2 ) 

TS ( i ) =$VBD I 6 > 

tp( j >=$veom 

XL*TXLCLU)-l«. ^STHCR 
IF (XL) 31*31*32 

31 TXL ( J)*ACOS< W-TXLCLf J)> 

00 TO 33 

32 TXL ( J)*PWTH*XL/CTHCR 

33 CONTINUE 
JLI M=J 
REWIND 18 
K*0 

DO 36 K J = 1 * ML 
K=K*l 

READ (18*375 I SVSH ( f ) *$ *1 r 10 ) 


CRO 129 
CRO 130 
CRO 131 
CRD 132 
CRD 133 
CRO 134 
CRD 135 
CRD 136 
CRD 137 
CRD 138 
CRD 139 
CRD 140 
CRD 141 
CRO 142 
CRD 143 
CRD 144 
CRD 145 
CRD 146 
CRO 147 
CRD 148 
CRD 149 
CRO 150 
CRO 151 
CRD 152 
CRO 153 
CRD 154 
CRD 155 
CRD 156 
CRD 157 
CRD 158 
CRD 159 
CRO 160 
CRD 16 i 
CRD 162 
CRD 163 
CRD 164 
CRD 165 
CRO 166 
CRD 167 
CRO 160 
CRD 169 
CRD 170 
CRD 171 


8k 





TYLS(KJ*SVSM(2I 

ip (SVSHI ll-XLSHI I 35,35,34 

34 TSS<K)=TSS{K-1I 
GO TO 36 

35 TSSIKMSVSHI61 

36 CONTINUE 
KL!M=K 

CALL EVICT l 6LT APE 1 51 
CALL EVICT I6LT APE 16 ) 

CALL EVICT I6LTAPE2?) 

retupn 


7 FORMAT (5E16.9) 
END 


CP D 

172 

CRD 

173 

CRO 

174 

CRO 

175 

CRD 

176 

CRD 

177 

CRD 

178 

COD 

179 

CRD 

180 

CRD 

181 

CRO 

182 

CRD 

183 

CRO 

184 

CRO 

185 

coo 

186 

CRO 

187 
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1 DELITR.- Subroutine DELITR computes boundary layer thickness for cone or 
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19 

20 
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22 
25 

24 
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non 


C 

c 

c 

c 

c 

c 

c 


SUBROUTINE OELITR 

CALLS VGAUSS.EOFX TO GET INTEGRALS WRT. Y/DEL THROUGH BOUNDARY 


DEL 

DEL 

DEL 

DEL 


COMMON XLSH.XLSH1.THCR.)LIM.KLIM.TXLCL(450I,TVU*50I .TS C«OI .IPIVSOEL 

, 2J;™V?”:;;^ , .rx^ , J!U-?i.CORT.STHCR,T,., 2 .C.X»O.RS, £ 

S ”ct"n.»NX. »!>.»•(> ,ft W , ftX tCC 8 t CEMP * CEMiCEMPtC tONOEL 

to ret reMT rt? rF?T.fN«COEl*COE2*COE3 f CTHCRt OtL*OELA HtDELSiDERR tDNUfcL 

2,DPV6R,ORBV&R,ORVAF,DSTH,OUVftR.e,EK.EL,ELT,EI.V0.6MU, EMVAR.EMX,€N,EDEL 

t onvAR d nw RRI . PP N*RRTVftP f RRXfRSERRtRS[SAV*RSLw'AR*RX»SHfcARfSPtSVAR DtL 
7 i SM 5X» T AW# TEMP »T XMP10»TE mp 1 1» T6 ^ ^ j " TX^WV AP » X^OEL 

B5,TEMP6.TfMPT,TeMI>9.T6MP9,TEP.IIV»R,TK,TI>P,rR«»,rTll.IM.TX,MV WtXIDtL 

9N»XM!N» X2REX»Z»ZMAX»£M1N D£L 

COMMON^ F C3i*»AC3>»ALPHE(3)»XI NT( 991 •TWTI 99> » Z ^*^ 5 ! 

1 (6) fOXLTAB(20)»OELK(2)tRSLGl2)fALG<2J * ENG( 2 1 *AN2l 71 T| . ftl nP i 

rnMMON ERXT< 20 ) *FR XLGT ( 20 > *FCXH 20)*FCXLGTI?O)*FRTBi 201 *FRLGT(20I* EL 
JPrTB(20l ,FCLGT<20) ,XWU001 ,F|N6< 1 00 1 » RSLW « 1001 « SHEE* (10ui.X( l6 °|**DEL 
21 t 60» Pit 1601 1 XC( 1601 »P8C 160 I »Vf( t601 *RRT( 1601 ,XMAXTB < 20 t »0U0XT ( 160 DEL 
*1 non XT I DPDXT I 160 I * OR BO XT i \ 60 \ • V AR< 2 ) v 0 tR( 2 ) tCU VAR i 2> ? WSAV( 160EL 

e , , 0 t TKTABC30KPRTAB 12101 • PAT AB< 7l»XKWft60l» WKW{ L60I f KSLKW(160> ^EL 
JSSinM /MOCK* PUT n 1601. PLT2ll60».PLT3t 1601 .PLT 4 ( 160» . PLT5 ( 160 WPOEL 
ILTM^60 ) » PLT 7 l Ifcol ♦ PLT 8 ( 1601 *P L T9( 1601 «PLT LOi 19 J> • PL Til < 160) > PL T120EL 
2 1 160) »PL T13 1 1601 » PL TIM 1601 » PLT151 1 60) t NK WS A V OEL 

OTMENSION F2(?» ofL 

EXTERNAL FOFX oEL 

SX-SVAR OEL 

CALLS VGAUSS •> FOFX TO GET INTEGRALS MRT. Y/OEL THkUU&H BOUNDARY DEL 
CALL VGAUSS ( 0 . 1 . , L , AN2 »FOFX ,F2 , ? , NN1 

DEL 

IS FLAT PLATE r>EL 

^ , OEL 

IE (EPOPT) 1 1 2 » 1 oet 

OELTASTAR/DELTA * I NTEORAL ( 3 1 0EL 


1 

2 

3 

4 

5 

6 
T 
8 
9 

10 

It 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 


S? 



c 


DEL 

43 

1 

OSnO=AN2<3» 

DEL 

44 

c 


DEL 

45 

c 

THETA/DELTA=INTPGRALt 1 S 

DEL 

46 

c 


DEL 

47 


THOD= AN2 ( 11 

DEL 

48 

c 


DEL 

49 

c 

oelta/l 

DEL 

50 

c 

THETA/L FROM SUBROUTINE OERSUB 

DEL 

51 

c 


DEL 

52 


OEL = CUV ARI 2 I /THOD 

DEL 

53 

c 


DEL 

54 

c 

dfltastar/l 

DEL 

55 

c 


OEL 

56 


OEL S=OEL *DSOD 

DEL 

57 


GO TO 3 

DEL 

58 

c 


DEL 

59 

c 

compute BOUNDARY LAYER THICKNESS 

DEL 

60 

c 

IF CONE F!NO OELTA/l FROM EQ I 5 > 

DEL 

61 

c 


DEL 

62 

2 

OFL*(-AN2m*S0RT[AN2l U**2«-4. *AN2 ( 5 > *TEMP 1 1 ))/ I Z . *A N2 I 5 > * 

DEL 

63 

3 

RETURN 

DEL 

64 

c 


DEL 

65 


FND 

OEL 

66- 
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1 


DERSUB.- Subroutine DERSUB evaluates the derivative of the variable entropy 


momentum integral equation. 
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SUBROUTINE DERSUB Oft* i 

C DER 2 

C X/L=CUVAR(18, MOMENTUM TH ICKNESS =CUVAR I 2 ) OER 3 

C AT X/L STATION COMPUTE VARIABLE ENTROPY MOMENTUM INTEGRAL DER 4 

C EQUATION DER 5 

C COMPUTES DTHETA/DX AT EACH STEP IN RUNGE-KUTTA INTEGRATION BY E03 DER 6 

c DER 7 

COMMON XLSH.XLSH1 »THCR, JL IM, XL ?M , TXLCL I 450 8 , TYU 450) .TSI4508 .TPI45DER 8 

10) , TXLf 4501 .TYLSI 4501 .TSSI4508 OER 9 

COMMON ENX.FPOPT, ALX ,R AF , ALM IN , COPT, STHCR.Tl.T2, L.XVO.PS! OER 10 

COMMON CMTOPT DER U 


COMMON ALGN, AN* ANZ, AP, AVAR , A W, AX *CEB, CEBP * CEM.CEMP EBMT ,CFB2 , CF EP. OER 12 
1R.CFI.CFMT.CF2.CF21 »CN»CDE l, C0E2 ,C0E3,CTHCR»0fcL, DEL A M, DEL S,DFRR , DNDER 13 
2 .OPV AR, ORBV AR* OP V AR * OSTH. OUV 6R * E * EK * EL* ELI *ELVO« EMU, EM VAR , EMX* EN * EDER 14 
3NGN ,FNI .ERR .FC .FCCF.FCCFLG ,FCF .FCFPR * F0» FDPR »FRR£ , ER TH, G.GC.GX.H.HOER 15 
4AW.HHAT, HP.HT,HVAR,HW,H2, ICE LL , I I , I N, J J» J JLl M, JN* K ,K K.KN.LL I M ,NKW» OER 16 
5NN » NO »NXINT»PATM,PIVAR,PR ,PR P » PRW ,RBV AP. ,RET , ft ETH, RH0U1 , RHOW , RO.ROPDER 17 

6 * ROVAR.ROW.RR l ,PR N, RRTVAR *RR X, RS ERR*R S ISAV.R SLVAR « RX « SHE AR * SP , S VAR DER 18 

7 * SW ,SX, TAW .TEMP , TEMPI 0* TEMPI 1 . TE MP12 * TEMPl4,TEMP2»TfcMP3» TEMP4. TEMP DER 19 

B5.TEMP6, TEMP7.TEMP8.TFMP9.TEP.TI VAR ,TK ,TPP, Th AN. T T 11 «T M • TX ,WV AR . X! DER ?0 
9N,XMJN,K2REX,Z,ZMAX,ZM!N OER 21 

REAL IN. JN. KN OER 22 

COMMON F (3 I * A I 3 ) . ALPHE(3) , XI NT ( 99 1 , TWT 1 99 > , Z T ABL I 6 ) , TA B I N< 6 > , TA B JNDEIR 2 3 
1 (6),DXLT AB(20),DELK«2),RSLG( 2( .ALGI2) .ENGI 28 ,AN2( 7) DER 24 

COMMON F RXT( 20 8 .FRXLGTI20 8 .FCXTI 20 ) , FCXLGT « 20 ). FRTB1 20) . FRLGTI 20 8 »OER 2 5 
1FCTBI 20 8 .FCLGTt 20 8 , XWl 1008 »F I N61 1008 » R SLW 1100 8 * SHEER 1 1 00 8 ,X ( 160 8 *S DER 26 

2 ( 1608 . PI ( 160) « XC I 160 8 «RB ( 163 8 , WI 160) . RP.TJ 160 S * XMAXTB 1208 ,OUDXT( 1600ER 27 

3 ) »DP OXT| 1608 .OPDXT ( 160) » DR BO XT U 608 » V AR 1 2 8 » DEKS 2 ) .CO VAR 12 8 .WSAVI 16 DER 2 8 
40 ) . RRTS AVI 160 8 « XS AVI 1601 » RSL SAVI 160 8 , RE XS A VI 160) . ENSAV1 1608 .CFSAVI DER 29 


5160) *TK TAB! 308 .PR TAB 1210) .PAT ABI 7 8 , XKWU60 8 .MKM UoOl .RSLKW t 160 8 OER 30 

COMMON I GAS. XXI 0E r 31 

COMMON f BLOCK / PLT1 ( 160 8 ,PLT 2 < 160 8 »PL T3 U60 8 .PLT 41 1608 . PLT 5 t 160 8 ,P OER 32 

ILT61 160 8.PLT7I 160) .PLT8I 160) .PLT9I 1608 »PLT 10< 160) » PL Till 160) ♦ PLT 12 DER 3 3 

21 1608 .PLT13U60) , PL Tl4( 1608 . PL T1 51 1608 .NKWSAV OER 34 

C OER 35 

C IS START OF TRANSITION DER 36 

C OER 37 

IF (CUVARI 1 I -XMIN 8 1,19,1 0ER 38 

C - DER 39 

C C4L1 FOGE OER 40 

? DER 4i 

1 CALL EDGE DER 42 


92 



onoononoon ojonn ooorurinn o o o o n n r> 


C 




OER 

43 

CALL AL3CAL 


DER 

44 



OER 

45 

CALL AL3CAL 


OER 

46 



OER 

47 

IS FIRST ITERATION 


OER 

49 

TEST CODE ICELL IF*0 FIRST ITERATION 

DER 

49 



OER 

50 

IF ITCELL1 4,2,6 


DER 

51 



OER 

52 

CALL CFCAL 


DER 

53 



OER 

54 

CALL CFCAL 


OER 

55 



OER 

56 

IS TRANSITION REGION 


OER 

57 



OER 

59 

IF ICUVARI 1I-X2PEX) 3,3,8 


OER 

59 



OER 

60 

NsLINEAR BETWEFN N ( TRANSI TIONI ANO Nt TUR BULENTI 


OER 

61 



OER 

62 

FN = EN I- ( XMIN-CUVARI IH*IFN!-ENX| /IXMTN-X2REX) 


OCR 

63 

GO TO 13 


OER 

64 



OER 

65 

IS TRANSITION REGION 


DER 

66 

TEST CODE TRAN IF=0 NO TRANSITION 

REGION 

OER 

67 



DER 

68 

IF (TRAN! 5,7,5 


OER 

69 

IF (CUVARt 1I-X2REX1 6,6,7 


OER 

70 



OER 

71 

ITERATION AFTER FIRST IN TRANSITION REGION THE 

N VARIATION IS 

OER 

72 

NONLINEAR 


DER 

73 

WITH PST CONTROLLING THE OEGREE OF 

NQNL INEAR ITY 

OER 

74 

THE SKIN FRICTION COEFFICIENT ALSO 

^ONL INEAR 

OER 

75 

CONTROLLED BY PSI 


OER 

76 

N EG < 26 ) 


OER 

77 

f.F / 2 EG I 251 


OER 

78 



DER 

79 

XX*PSI-CEB*< X2REX— CUVARI 1 » ) 


OER 

80 

XXl=<CEBP«-TANH(XX> I /(CEBP *-CE8P I 


OER 

8 t 

FN=ENI«-XXl*CEM 


DER 

82 

CF2*CF2I »XX1*CEHP 


DER 

83 

GO TO 13 


OER 

84 



DER 

85 


V* 


93 



i-nor>^aor>»- ►- 1- & ooooonn^) non n r> n n QDnnnsnn 


CALL CFCAL 

DEP 

86 


DER 

87 

CALL CFCAL 

OER 

S8 


DER 

8$ 

USING FRTHETA*RETHETA»SP ALDING-CHI TABLE GIVES FCCBARF 

DER 

90 


DER 

91 

FRRE = ALOGIO(FRTH«'RETH» 

DE* 

92 

CALL 01 SCOT 1 FRRE.FPRE.ERLGT, FCLGT,FCLGT, 011,20, 0,FCCFLG> 

DER 

93 

FCCF=10.**FCCFLG 

DER 

94 

CFB2=FCCF/I 2„*FC) 

DER 

95 


□ ER 

96 

C8FMT E0I36J 

DER 

97 

XVO/LO E0I9S 

OER 

98 


DER 

99 

ELVO=CUVARI2>«MCFBMT$CF82l 

DER 

100 


DER 

101 

Z F018I 

DER 

102 


DER 

103 

Z = IRETH**AN*C0EI**CN’MELV0/C.UVAR(2I / (EMVAK^^ON » 

DER 

104 


DER 

105 

BEYOND TRANSITION N =6.*L0G( Z 1—7 EXCEPT 

DER 

106 

N=2 BELOW ZMIN.NMO ABOVE ZMAX 

HER 

107 

WHERE 7 COMPUTE 0 USING DISTANCE FkGM VIRTUAL 

OPIGIN, DER 

108 

Z.LT.ZMIN»N=2 

OER 

109 

ZMIN.LE. Z.LE .ZMAX «N!EO0I 

OER 

110 

Z.GT.ZMAX«N=10 

OER 

III 


DER 

112 

IF ( Z— ZM IN I 9, 10, 10 

OER 

113 

EN= 2. 

DER 

114 

GO TO 13 

OER 

115 

IF IZ-ZMAX1 12,12,11 

DER 

116 

EN= 10, 

OER 

117 

GO TO 13 

DER 

113 

EN=6.*AL0G10C Z»-7. 

OER 

U9 


DER 

120 

IS N.LT.NSTRANS1T ION! 

OER 

121 


DER 

122 

IF l ENT- EN I 15, 15 » 14 

DER 

123 


DER 

124 

N=N I TRAN 1 

DER 

125 


DER 

126 

EN=EN I 

DER 

127 

TEMP3*1,/EN 

DER 

128 


Ok 



nnn ♦— o o n n o ♦-* r> o r> non o n o >— or>ooor>or> ~ n n n o o r» 


9 


IS FLAT PLATE 

IF IFPOPT) 16.17,16 

CALL DEL ITR FOR OEL/L.OELSTAR/L 

CALL DEL ITR 

GO TCI IS 

GIVEN MOMENTUM THICKNESS COMPUTE BOUNDARY LAYER THICKNESS .SHOCK 
RAOIUS 

DISPLACEMENT THICKNESS EXCEPT AT START OF TRANSITION MHEN SHOCK 
RADIUS GIVEN 

FIND VALUE TFMPH COS ( THET AC I / ( 2R8/L » * 1 0/ L I SQMO/L 1 

CALL DEL ITR FOR 0EL/UEQ5* 

TEMPI 1=T FMP 10*CUV AP(2l*CUVAft( 2 l+CUVAR ( 2 I 
CALL DEL ITR 

RS/LIFG19I 

RSLVA RESORT ( TEMPI 2*0EL*AN2 16 ) HEMP12*0EL*DEL *AN2< 211 
OELSTAR/LIEOAI 

G=-0FL*AN2m-0El#0EL*AN2(4) 

OELST AR/THET A 

DELS=(-1 . 4-SORT ( 1. -TEMP 1A*GM/TEMP9 
DSTH 3 DELS/CUVAR( 21 1 

TABLE OF VELOCITY, OENSITY, PRESSURE, BODY RADIUS DERIVATIVES FROM 
PREVIOUS ITERATION 
DU /DX, OR HO/OX FROM TABLES 

CALL DI SCOT ( C UVAR i II .CUV AR I I ) ,XKW, OUDSfT , DUDXT , 01 1 , NKB ,0. DUVAR ) 
CALL DISCOT ( CUVAR III .CUV AR! 1 J .XKW.ORDXT, DROXT.Oll .NKW.O.DRVARl 

IS FLAT PLATE 

IF IFPOPT! 20.21.20 


DER 

129 

DER 

130 

DER 

131 

OER 

132 

OER 

133 

OER 

134 

OER 

135 

HER 

136 

OER 

137 

OER 

130 

OER 

139 

OER 

140 

DER 

141 

OER 

142 

OER 

143 

DER 

144 

DER 

145 

OER 

146 

OER 

147 

OER 

148 

OER 

149 

OER 

150 

OER 

151 

OER 

152 

OER 

153 

DER 

154 

DER 

155 

DER 

156 

OER 

157 

DER 

158 

OER 

159 

DER 

160 

DER 

161 

DER 

162 

OER 

163 

OER 

164 

DER 

165 

DER 

166 

OER 

167 

OER 

168 

OER 

169 

OER 

170 

OER 

171 


95 



ooo nn Noon m n on 


DER 

OTHETA/DX oe * 

DER 

0 DERI 2>=CF2-CUVAR(2>*( 1 (2 . *0STH1*0UVAR 1 /WV AR*DRVAR /RR TVAR » OER 

CO TO 22 OER 

DER 

DP/DX, ORB/OX FROM TABLES OER 

DER 

1 CALL Dl SCOT ICUVARm.CUVARIlI ,X,OP0XT,0P0XT,QU, JJl IH.O.OPVARI DER 

CALL 01 SCOT ICUVARI 1J,CUVARI l ) « X , DR BOXT» DR BOXT.OU . J JL I M»Ot DRBVARJ DER 

DER 

OTHETA/DX « DER ( 2 ) INCREMENT IN MOMENTUM THICKNESS FOR DER 

RUNGE KUTTA INTEGRATION OER 

DTHETA/0XIEQ3I DER 

DER 

DER(2J=CF2-CUVAR I 21*11 (2 . +DS TH »*DUVAR I /HVAR^ORV AR/RR TVAR*DRBV AR/RBDER 
I VAR J ♦IDEL/WVAR 1*1 OPVARX'GC/ IR RT VAR*WV AR ( *OUVAR I OER 

22 RETURN OER 

C OER 

END OER 


172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
192 

183 

184 

185 
196 
187 
198 

189 

190 
191- 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 
13 


14 

15 

1 6 

17 

18 

19 

20 
21 
22 

23 

24 

25 


EDGE .- Subroutine EDGE computes the initial conditions at the edge of the 
boundary layer using the results of the inviscid solution and the 
laminar boundary layer calculation. 


| EDGE 


Computes p g from table of x/r n> p 

r /r from table of x/r , r, /r 
bn non 

r /r from table of x/r , r /r 
s n n s n 

s from table of r /r , s 
e s n 


Call RGAS for 

h , a , T , p 
e’ e e’ e 

> 

f 

Computes, 

T from table 
v 

V V R e 0 

of X. , T °R 

inch w 


i 

Call RGAST for h , a , p , s 

W V W V 


Computes T^, F RQ , 



Call RGASH for T', p’ , a', s' 

[ 
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1 
2 

5 

4 

5 

6 

7 

8 
9 

10 
n 
12 
15 

14 

15 

16 

17 

18 

19 

20 
21 
22 
25 
24- 
25 
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oooononno 


SUBROUTINE EDGE 


C 

c 

c 

c 


EDG 
EDG 

AT X/L STATION COMPUTE PRESSUREf BODY RADIUS, SHOCK RA DIUS , ENTROPY, FOG 


DENSITY E° G 

VELOCITY, MACH NO. , ENTHALPY ,T EMPERATURE » EOG 

HALL TEMPERATURE. DENSITY, ENTHALPY, PRANOTL NO. EOG 

ADIABATIC WALL ENTHALPY . T EMPERATURE EDG 

REYNOLDS NO. BASED ON MOMENTUM THICKNESS EDG 

ECKERTS REFERENCE ENTHALPY ,T EMPER ATURE , PR ANDTL NO.. EDG 

EOG 

COMMON XLSH,XLSHI,THCR, JL I M, KLIM, TXLCU 450 > , TYL (450) ,TS< 450) ,TP(45EOG 
10) ,TXL( 4501, TYLS (4501 ,TSS(450) 

COMMON ENX.FPOPT, ALX.RAF, ALM ! N ,COPT , STHCR , T t , T2, L , XV O. P S I EDG 

COMMON CMTOPT EDG 


COMMON ALGN, AN, ANZ, AP, AVAR, AW, AX » CEB, CERP ,C EM.CEMP ,C FBMT ,CFB 2 .CFEREDG 
IR,CFI,CFMT,CF2,CF2I » CN» COE !» CDE2»COE3»CTHCR » DEL, DeLA M, DcLS , DERR, DNEOG 
2 ,DP V AR , DRBVAR , DRV AR, DSTH , DUV AR , E , EK , EL, ELT » ElVU, EMU, EM V AR , EMX , EN ,E EOG 
3 NGN ,ENI,ERR,FC,FCCF, FCCFLG ,F CF ,FCFPR , FD,FDPR .FRrtt , FR TH, G ,GC ,GX, H,HEOG 
4AW,HHAT,HP,HT ,HVAR,HW,H2, I CELL, I I , IN, J J , J JL I M, JN . K ,K K,KN ,LLT M ,NKW, EDG 
5NN,N0,NXINT,PATM,PIVAR,PR,PRP, PR W , RRV AR ,RET, RfcTH, RHU UI , kHOW , ft 0, RDPEOG 

6, R0VAR,R0W,RRI*RRN,RRTVAR ,RR X , RS ERR , R S I S A V , RSLV AR , RX , SHE AR , SP , SVAR EDG 

7, SW.SX. TAW, TEMP, TEMP 10, TEMPI 1 , TE MP l 2 , TEMP l 4, TEMP2 ,Tc MP3 , T£MP4 , TEMPEDG 

8 5,TEMP6,TEMP7,TEMP8, TEMP9,TEP,Tl VAR ,TK , TPP , TRAN , TT l L ,TW. TX.WVAR , XI EOG 
9N,XMIN,X2REX,2,ZMAX,?.MIN EDG 

REAL IN, JN,KN EDG 

COMMON F (3) ,A(3) .ALPHE (3) ,XINTI99I ,TWT (99 ) , l TABL l 61 , TAB IN (6 ) , TAB JNEOG 
U6),DXLTAB(20),DELK(2I,RSLG( 2 1 , AL G( 2 ) , FNG( 2) , AN2( 7t EDG 

COMMON FRXTI201 ,FR XLGT ( 20 » ,F CXT( 20) ,FCXLGT ( 20 ) , FkT 81 20) , FRLGT ( 20 ) , EOG 
IFCTR(?0) ,FCLGT(20),XW( 100),FIN6C 1 00 ) , R SL W ( 100J , SHEER ( 100) ,X( 160) ,SEOG 
2(160) ,PI (160) ,XCI 160) ,RBt 160 ) , W( 1 60 ) , PRT ( 160 ) , XM AXTB 120 ) ,DUDXT( 160 EOG 
3),0RDXT( 160) , DPDXT ( 160 ), DR 8DXT ( 1 60) ,VAR(2),DER( 2) ,CU VAR ( 2) ,WSAV( 16E0G 
40) ,RRTSAV(160) ,XSAV< 160) ,RSLSAV( 160) ,REXSAVI 160 > , ENS AV 1 160 ) , CFS AVt EOG 


5160),TKTAB(30) ,PRTAB( 210 I , PAT AB< T ) , XKW ( 160 I , WKW( 160) ,RSLKW( 160) EDG 
common 1 GAS 

COMMON / BLOCK/ PLT l ( 160) , PLT ?\ 160 ) »PLT3( 160 ) »PLT4( 16 01 • PLT5I 160) ,P EOG 
ILT61160) ,PLT7(160) ,PLT8U60) ,PLT9( 160) ,PLT 10 1 160 ) , PL 111 (160) , PLT12E0G 
2(160>»PLT13(l60l*PLY14(160)»PLTt'Hl60I EOG 

IF (FPOPT) 10,1,10 EOG 

C 0G 

FINO PRESSURE PIVAR L9S/FT2 BOUNDARY LAYER EDGE AT FOG 

X/L STATION EOG 

IF X OUTSIDE TABLE USE FINAL PRESSURE FROM TABLE EOG 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
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orvont-*wOonn oo^jnnoooa' w n r> r> nnrjr>n->r>r>nni>*r»r>o m r- n o 


0 


IF X INS I OE TABLE USE INTERPOLATED PRESSURE 

IF (CUVARI 1I-TXU JLIMU 3,3,2 
P I V AR.=TP ( JL I M I 
GO TO 4 

P FROM TA8LE X/L, P 

CALL DISCOT I CUV AR i 1 > ,CUVAR( H ,T XL* TP ,TP , Oil » JL l M, 0. PI VAR ) 

INTERPOLATE FOR BODY RADIUS 
RB/L FROM TABLE X/L.RR/L 

CALL 01 SCOT (CUVARtl) .CUVARIU ,X , RB, RB,01 1 , J JL IN, 0»R BV AR } 

FIRST ITERATION INTERPOLATE FOR SHOCK RAOIUS USING LAMINAR TABLE 
ITERATION AFTER FIRST INTERPOLATE FOR SHOCK RADIUS USING PREVIOUS 
ITERATION 

IF UCELLI 6,5*6 

RS/L FROM TABLE X/L.RS/L 

CALL OISCOT ICUVARtll, CUVARIU , XW ,RSLW,RSL W , 0U » LL 1H .O.RSLVAR) 

GO TO 7 

CALL DISCOT (CUVAR ( 11, CUVARI I I , XKM, RSLK W* R SLKW. 01 I »N KM, 0*RSL VAR > 
FIND ENTROPY SVAR FT2/SEC2DEGR 

IF SHOCK RAOIUS OUTSIDE TABLE USE FINAL ENTROPY FROM TABLE 
IF SHOCK RADIUS INSIDE TARLE USE INTERPOLATED ENTROPY 

IF (RSLVAR-TYLSIKLIMU 9,9,8 
SVAR = TS$(KU MI 
GO TO 10 

S FROM TABLE RS/L ,S 

CALL DI SCOT I RSL V AR, P SL V AR , T YL S* TSS, TSS ,0U ,KL1M ,0.S VAR » 

GX=1 .4 

DENSITY, SOUND SPEED, ENTHALPY , TEMPERATURE FROM REAL SAS 
THERMODYNAMIC TABLES 

FIND DENSITY ROVAR SLUG/FT3 REAL GAS THERMODYNAMIC 


EOG 

43 

EOG 

44 

EOG 

45 

EOG 

46 

EOG 

47 

EOG 

48 

EOG 

49 

EOG 

50 

EOG 

51 

FOG 

52 

EOG 

53 

EOG 

54 

EOG 

55 

EOG 

56 

EOG 

57 

EOG 

59 

EOG 

59 

EOG 

60 

EDG 

61 

EOG 

62 

EDG 

63 

EDG 

64 

EDG 

65 

FOG 

66 

FOG 

67 

EDG 

68 

EOG 

69 

EOG 

70 

EOG 

71 

FOG 

72 

FOG 

73 

EOG 

74 

EDG 

75 

EOG 

76 

EOG 

77 

EDG 

78 

EOG 

79 

EOG 

00 

EOG 

Bl 

EOG 

82 

EDG 

83 

EOG 

84 

EOG 

85 


100 



o o ^ n n o o o *-• no n ^ *— n n n non r>no non oonoon 


1 

2 


3 


TABLES 

FIND SOUND SPEED AVAR FT/S EC 

FIND ENTHALPY HVAR FT2/SEC2 

FIND TEMPERATURE T I VAR DEGR 

H,A,T,RHO FROM EGAS USING P, S 

CALL RG AS ( » I VAR , ROVAR , AV AR, HVAR . T I VAR , SVAR , RRX ,GX,- l, 5 . IGAS > 

FtND PRESSURE ATM PATM ATM 

PATM=PIVAR*.4725F~3 

FIND OENSITY RRTVAR LBM/FT3 

RR TV AR=R OVAR*32.1 7 A 

FIND VELOCITY WVAR FT/SEC 

WVAR = SORTI2.MHT-HVAR» ) 

FtND MACH NO EMVAR 

EMVAR=WV AR/ AV AR 

IF C IGAS— 1 1 1 It lit 12 

£ MU -6,887 E-7*SQFT (TIVARI/ ( l . M BO . / T I V AR » 

GO TO 13 
CONTINUE 

FINO VISCOSITY EMU 

EMU=7.310615E-7*SORT<TIVAR I/(l.«-20I.6/TIVAR* 

CONTINUE 

RET=(RRTVAR*WVAR t /l EMU*12. i 
FIND X INCH XIN INCH 

X!N*CUVAR(1 >*EL 

FIND WALL TEMP TW DEGR INPUT TABLE OF WALL 

TEMPERATURE 

TW FROM TABLE X INCH»TWOEGR 

CALL OISCOT (XIN. XIN 9 XINT,TwT»TWT,0I1 ,NXINT»D,TWJ 


EDG 

86 

£06 

8? 

EOG 

88 

EOG 

89 

EOG 

90 

EOG 

91 

eog 

92 

EOG 

93 

EDG 

94 

£DG 

95 

EDG 

96 

EOG 

97 

EOG 

98 

EOG 

99 

EOG 

100 

EOG 

iOL 

EOG 

102 

EOG 

103 

EOG 

104 

EOG 

105 

EDG 

106 

EOG 

107 

EOG 

108 

EOG 

109 

EOG 

110 

EOG 

111 

EOG 

112 

EDG 

113 

EOG 

114 

EDG 

115 

EOG 

116 

EOG 

117 

EOG 

118 

EOG 

119 

EDG 

120 

EOG 

121 

EOG 

122 

EOG 

123 

EDG 

124 

EOG 

125 

EOG 

126 

EDG 

127 

EOG 

128 


101 



o n o o o n n o n rs n o o <"> o n n n o n n n doo nrtnnno^oo 


EDG 129 

W4LL DENSITY, SOUND SPEED, ENT HALPY , ENTROPY FROM REAL GAS EOG 130 

THERMOOYNAMIC TABLES 131 

START WITH ESTIMATE FOR WALL ENTROPY EOG 132 

FIND DENSITY WALL ROW SLUG^FT3 REAL GAS THERMODYNAMIC EOG 133 

TABLES 

FIND ENTHALPY WALL HW FT2/SEC2 

HW, AW,RHOW,SW FROM RGAS USING PtTW 


CALL RGAST ( PIVAR , ROW, AH, HW, TW,S W,ERR , IGAS 5 
FIND DENSITY WALL RHOW LBM/FT3 

RHOW-ROW*32. 174 
COEFFICIENTS FOR F C EQUATION 


FIND COEFF 
FIND COEFF 
FIND COEFF 


COE2 

f.OEl 

COE3 


WHERE NRs.B9 AND GAMMA=1.4 
TW7TE 

COEFF USEO IN FC IN 5PALOING CHI 


THEOPY 


EDG 13 A 
EOG 135 
EOG 136 
EOG 137 
EOG 13 8 
EDG 139 
EDG 140 
EOG l At 
EOG 142 
EDG 1*3 
EDG 144 
EDG 145 
EDG 146 
EDG 147 
EDG 148 
EDG 149 
EDG 150 
EDG 15 i 
EDG 152 
EDG 153 
EDG 154 
EDG 155 
EDG 156 
EDG 157 
EDG 158 
EOG 159 
EnG 160 
EOG 161 
EDG 162 

ERTHETA IN SPALDING CHI THEORY EO 22EDG 163 

EDG 164 

FRTH=C0El#*i-t.474J«'lTAW/TIVARl**.772 EOG 165 

EDG 166 

TEMP 8 HT-HW EOG IP 7 

EOG 168 
EDG 169 
FOG 170 

TEMP? USO/2. EDG 171 


CnF2=.l78*EMVAR*EMVAR 

C0E1=TW/TIVAR 

COE 3=1. «-COE2-COEl 

FIND REYNOLDS NO RETH 
THICKNESS 


REYNOLDS NO BASED ON MOMENTUM 


RET H=RET*CUV AR ( 2 I *EL 
FIND ADR WALL TEMP TAW 
TAW* (PR**. 33333333 J*(TT11-TI VAR) *TIVAR 
FIND ERTHETA FRTH 

FRTH=COE 
FIND VALUE 
TFMRR=HT-HW 
FIND VALUE 


ADIABATIC WALL TEMP 


102 



onnn nnon non nono o o r> nnnnoonn non nnr> 


c 


adiabatic wall enthalpy 


TFMP?=WVAR*WVAR/2. 

FIND ADBWALL ENTH HAW 
HAW=HVAR«-.8R*(HT-HVAR) 

ENTHALPY ECKERTS REFERENCE 1EQ15) 

HP* .5*1 HWFHVAR I ♦ . 2?*(HAW— HVARI 

REFERENCE DENS ITY »SOUND SPEED, TEMPERATURE , ENTROPY FKUM REAL GAS 
THERMODYNAMIC 

TARLES*START WITH ESTIMATE FOR REFERENCE ENTROPY 
TP,RHOP, AP,SP FROM RGAS USING P,HP 

FIND REF TEMP TPP DEGR REAL GAS THERMODYNAMIC 

TABLES 

CALL RGASH t PI V AR , RCP . AP , HP, TPP f SP »ERR * IGAS » 

FIND REF TEMP TK DEGK 

TK- TP P/ 1 . 8 

FIND REF PRANDTL PRP TABLE IV REF * 30 

NPRP FROM HANSENS TABLES USING PATM.TPDEGK 

CALL DISCOT (TK, PATM,TKTAB,PRTAB,PATA8, 011,210, 7»PRP I 

FIND WALL TEMP TK DEGK 

TK=TW/1.8 

FIND WALL PRANDTL PRW TABLE IV REF. 30 

NPRW FROM HANSENS TABLES USING PATM.TWDEGK 

CALL DISCOT < TK , P ATM , TKT A8 ,PRT AB , P AT AB,01 1 » 2 10, 7 , PRW » 

VANDRIEST II 

REYNOLDS ANALOGY FACTOR (TABLE I> 

HWT = HW/HT 

IF (HWT-.2I 14,15,15 


EOG 

172 

EDG 

173 

EDG 

174 

EOG 

175 

EDG 

176 

EOG 

17t 

EOG 

17* 

EOG 

179 

EOG 

ISO 

EOG 

181 

EOG 

182 

EOG 

183 

EOG 

184 

EOG 

185 

EOG 

186 

EOG 

187 

EOG 

188 

EOG 

189 

EOG 

190 

EOG 

191 

EOG 

192 

EOG 

193 

EOG 

194 

EDG 

195 

EOG 

196 

EDG 

197 

EDG 

198 

EOG 

199 

EOG 

200 

EOG 

201 

EOG 

202 

EOG 

203 

EOG 

204 

EOG 

205 

EOG 

206 

EOG 

207 

EOG 

208 

EOG 

209 

EOG 

210 

EOG 

211 

EOG 

212 

EOG 

213 

EOG 

214 
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14 RAF=U 
GO TO 18 

15 IF (HWT-.65J 16*16* 17 

16 RAF=.8311f.9675*HWT-.6l42*HWT**2 
GO TO 18 

7 R A F = 1 . 2 

FIND Bl Fill COEFF STATIC ENTH REG i BOUNDARY 

LAYER 

R I IFQ135 

8 CONTINUE 

F< 1 5 = C( HAW— HW I /TEMPS |4PRW/ p R P *#, 66666667 
IF C F POP T | 20,19,20 


FIND VALUE 

TFMP9 

COS(THETAC>/IRB/L» 

TEMP9=CTHCR/RBVAR 



FIND VALUE 

TFMP10 

COS 1 THET AC t / 1 2RB/L 1 

TFMP10=.5*TFM»9 



FIND VALUE 

TEMPI* 

2C0S< THETACI MRB/L J 

TEMP14-=2«*TEMP9 



FIND VALUE 

TEMP l 2 

2ftB/L*RHO*U/RMO{’8‘UI 


TEMPI 2= 2* ®R BV AR*RRT VAR *W V AR/RHOU t 
20 RETURN 
END 


EOG 

215 

EDG 

216 

FOG 

217 

EOG 

210 

EDG 

219 

EDG 

220 

EOG 

221 

EOG 

222 

EDG 

223 

EOG 

224 

EDG 

225 

EOG 

2 26 

FOG 

227 

EDG 

228 

EDG 

229 

EOG 

230 

EDG 

231 

EDG 

232 

EDG 

23 3 

EOG 

234 

EOG 

235 

EOG 

236 

EOG 

237 

EOG 

238 

EDG 

239 

EOG 

240 

EOG 

241 

EOG 

242 

EDG 

243 

EOG 

244 

EOG 

245 

EDG 

246- 
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U/U e = ( ^77 L)1/N (EQ ‘ 7) 
' n 

Computes h (EQ, 10, 12) 
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FUNCTION FOFX (V.F21 EOX 

FOX 

FUNCTION CALLED BY VGAUSS FOB INTEGRATION THROUGH BOUNDARY LAYER FOX 
AR,8R, ALPHAS HAVE BEEN INPUT OR CALCULATED FOX 

IN SUBROUTINES EDGE AND AL3CAL FOX 

N HAS BEEN INPUT OR CALCULATED IN SUBROUTINE DERSUB FOX 

FOX 

COMMON XLSH,XLSHt,THCR« JL 1 M, KL IM * TXLCL 1 450 1 . TYL ( 450) ,TS(450) , TP 1 45 FOX 
101 .TXLI450I .TYL SI 4501 .TSSI450) FOX 

COMMON ENX.FPOPT, ALX,RAF» ALM IN,COPT, STHCR »T 1 . T2,L , XVO, PS I FOX 

COMMON CMTOPT POX 


COMMON ALGN, AN, ANZ , AP. AV AR ,A W , AX , CEB,CEBP ,CEM,CEMP,CFBMT ,CFB2 ,CFEP «0X 
1R.CFI ,CFMT,CF2,CF2I,CN,C0E1, C0E2 , C0E3 ,CTHCR , DEL , OEL AM.OELS ,0£RR , DNFOX 
2*DPVAR,DRBVAR,DRVAR,0STH,DUVAR,E»EK,EL*ELT , elvo* emu, emvar»emx,en»efox 
3 NGN » ENI , FRRiFC.FCCF,FCCFLG,FCF,FCFPR,FD,FOPR ,FRkE , FR TH, G t GC , GX ,H ,HFOX 
4AW»HHAT,HP»HT *HVAR»HW,H2» I CE LL » 1 1 , IN, J J, J JLI M, JN, K,KK, KN, LL! M , NKW, FOX 
5NN.N0.NX INT,PATM,PIVAR,PR,PRP, PRW , RBV AP. » RET, RETH, RHQ UI ,R HOW,RO,ROPFOX 
6, ROVAR »R ON ,RR I »PON,RRTVAP ,RR X, RSERR ,RSI S A V ,R SL V Aft , RX , SHE AR , SP , S V ARFQX 
7, SW,SX, TAW, TEMP, TEMP 10, TEMPI 1 , TEMP 12 , TEMP 14, TEMP 2 , TE MP3 , TEMP4 .TEMPFOX 
B5,TEMP6,TEMP?,TEMP8,TEMP9, TFP,TI VAR ,TK,TPP,TftAN, TTU ,TW , TX ,WV AR , XI FOX 
9N,XMIN,X2REX,Z,7MAX,ZMIN FOX 

RFAL IN , JN »KN FOX 

COMMON F I3),A(3>, ALPHE 13 I , XI NT (99 ) ,TWT ( 99 I , Z TABU 6 ) . TAB INI 61 , TAB JNFOX 
1(6) ,OXLTAB120S,DELKI2),RSLG( 2) , ALGI 21 , FNG I 2 1 , AN2 I 7 » FOX 

COMMON FRXTI 20), FRXLGT (20 l,FCXT( 20 ) , FCXLGT ( 20 ) , FkTfal 20 > ,FRLGT I 20) , FOX 


1FCTBI 20) ,FCLGT( 20) , XWI 100 ) ,F l N6I I 00 ) ,RSLW 1 10U i .SHEER 1 100 ) , XI 160 ) , S FOX 
2( 160) ,PI < 160)»XC! 160I.RBI 160 ), W( 160 ) ,RRT I 160 ) , XM AX IB I 20 ) .OUDXTI 160F0X 
3) ,ORnXT( 160) ,DPOXT(160),DRBDXT(160) , V AR ( 2 ) »DfcRl 2 ) , CJ V AR I 2) ,WSAV( 16F0X 
40>,RRT$ AVI 160), XS AVI 1601 ,RSL SAVI 160) ,REXSAV( 160) ,E NS AVI 160) ,CFSAVI FOX 
5160) . TKT ABI 30) ,PRTAB(210I »PATAB(7) , XKWU60 » , WKW HbOl ,RSLKWll60) FOX 
COMMON I GAS FOX 

COMMON / BLK/ CV1 , CV2 ,CV3 , CV4 ,CV5 , CV6 ,CV7 ,CVB ,CV9 , L Vi O.CV 11 tCV 12 ,CVFOX 
113, UNIN, UNfO FOX 

COMMON /BLOCK/ PL T U 160) , PLT 2 ( 160 ) , PLT3C 160) ,PLT4( 1601 ,PLT5< 160) ,PFOX 
1LT6U60) .PLT7I 160),PLT8I 160) ,PLT9( 160 ) , PLT 10 Ilou ) , PL 1 1 H 160) , PLT12F0X 
2(160) ,PLT13( 160) ,PLT14(160), PLT15I 160) .NKWSAV FOX 

DIMENSION F2I7) FOX 

FOX 

COMPUTE INTEGRALS WRT. Y/OELTA FOR BOUNDARY LAYER THICKNESS, FOX 

DISPLACEMENT FOX 

THICKNESS, SHOCK RADIUS E OUAT I ONS , GAUSS I AN QUADRATURE FOX 

FO 1 7 ) FOX 
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r> o o non n n o r>r>o<jtr>oo4>oon <>j r> o o Njnno 


C 


1 


c 



FOX 

43 

C ON 2= V** TEMP 3 

FOX 

44 

IF | CON 2— *01 1 2f l » l 

FOX 

45 

IF (CCN2-.10) 3t4,4 

FOX 

46 


FOX 

47 

R=[ 

FOX 

48 


FOX 

49 

K X 1 

FOX 

50 

GO TO 5 

FOX 

51 


FOX 

52 

R=I I 

FOX 

53 


FOX 

54 

K*2 

FOX 

55 

GO TO 5 

FOX 

56 


FOX 

57 

R= I I T 

FOX 

58 


FOX 

59 

K-3 

FOX 

63 


FOX 

61 

FQ( 10 ) 

FOX 

62 


FOX 

63 

HHAT=A(M*F!K)*C0N2**ALPHE(K ) 

FOX 

64 


FOX 

65 

P0( 12) 

FOX 

66 


FOX 

67 

H~H W + TE MP8*HHAT-T E MR 7*C0N 2*C ON 2 

FOX 

68 


FOX 

69 

RHO FROM REAL GAS USING H ANO P 

FOX 

70 


FOX 

71 

CALL RG ASH t P I V AR 9 R X , AX, H f TX » SX* E RR t I GAS ! 

FOX 

72 

RR I =R X/ROVAR 

FOX 

73 


FOX 

74 

INTEGRAL 6 f 3*7,l 

FOX 

75 


FOX 

76 

F2C6* =RR I *C0N2 

FOX 

77 

F2I 3 J*U-F21 6* 

FOX 

78 

F?< 7**F2 «68*CON2 

FOX 

79 

F2 1 U*F2C6*-F217& 

FOX 

80 


FOX 

81 

IS FLAT PLATE 

FOX 

82 


FOX 

83 

IF (FPOPT) 6 • 7 *6 

FOX 

84 


FOX 

85 


108 



r» co o »— ■ ^>or>ooaoono o o o 0*0^ 


0 


1 

2 


3 

14 


INTEGRAL 2.4, 5=0 

P2(2*=F2(4I=F2(5)=0 
GO TO 8 

INTEGRAL 2,4,5 

TEMP2=V*TEMP9 
E2(2)=F216I*TEMP2 
F2(4»=FZ (3»*TEMP2 
F2( 5)-F2( 1)*TEMP2 

IS X/L* X2RE Xf . 01 

IF <A8S< ELT-CUVAR(11 >-.0001* 9,9,12 

WRITE OUTPUT THROUGH BOUNDARY LAYER 
Y/OEL,U/UE,H,RHO/RHOF,RHOU/R HOEUE,HHAT,T,M 

EMX=CON2*WVAR/AX 
WRITE 16,14* 

IF (UNIO-l.* 10,10,11 

089=H*CV5 

090*TX*C V8 

WRtTE (6,13* V,C0N2,089,RRI,F2I6I ,HHAT , 090, FHX 
GO TO 12 

WRITF (6,13* V,C0N2,H,RRT , F2 ( 6 I , HHAT , TX, EMX 
RETURN 


FORMAT (8E16.91 

FORMAT ( 1H 5X,3HY/r),13X, 4HU/UE, l 3X* IHH ,l2X,88RHU/riHJ£ 
1H0EUE ,9X,4HHBAft ,1 3X ,1HT,15X,1HM) 

END 


FOX 

86 

FOX 

8T 

FOX 

88 

FOX 

89 

FOX 

90 

FOX 

91 

FOX 

92 

FOX 

93 

FOX 

94 

FOX 

95 

FOX 

96 

FOX 

97 

FOX 

98 

FOX 

99 

FOX 

100 

FOX 

101 

FOX 

102 

FOX 

103 

FOX 

104 

FOX 

105 

FOX 

106 

FOX 

107 

FOX 

108 

FOX 

109 

FOX 

110 

FOX 

111 

FOX 

112 

FOX 

113 

FOX 

114 

FOX 

1 15 

FOX 

116 

FOX 

117 

6X f 1 tHRHOU/RFOX 

118 

FOX 

119 

FOX 

120- 


IO9 



1 FOFZ .- Function subroutine FOFZ computes the ideal gas F c function to 
o correlate the skin-friction data. This subroutine is called by VGAUSS 


3 

4 

5 

6 

7 

8 
9 


for integration. 

1 FOFZ~] 

T 

Computes the integral F through 
the boundary layer (EQ. 22) 

, * ' 

( RETURN J 
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o n a n n 


FUNCTION FO FZ <V*FZ) FOZ 

FOZ 

FUNCTION CALLED 0Y VGAUSS FOR INTEGRATION THROUGH BOUNDARY LAYER FOZ 
FOR SPALDING— CHI I SKIN FRICTION FOZ 

FIND INTEGRAL WRT* U/UF FOR EOI22) FOZ 

FOZ 

COMMON XLSH, XLSHltTHCRtJL IM, KL IM * TXLCL ( 45 0 I * TYL < 450) • IS <450) » TP ( 45FGZ 
1 01 ♦ T XL I 4501 * TYL St 450 ) ,TSS(450) FOZ 

COMMON ENX,F PQPT , At X, RAF, ALM I N , COP T , S THCR ♦ T 1 , T2 1 L ♦ XV G, P $ I FOZ 

COMMON CMTOPT FOZ 


COMMON ALGN, AN, ANZ, AP f AV AR , A W, AX t CEB, CE9P ,CEM,CEMP *: FBNT ,CFR 2 , CFERFOZ 
IRtCFI fCFMT»CF?,CF2 I ,CN ,C0 E 1 ♦ C0E2 *C0E3 ,CTHCR , DEL , DELAM, DELS , OERR , DN FOZ 
2,OPVAR,ORBVAR,ORVAR,DSTH,DUV4R,F t EK,FLtELT,E LVG, EMU* EM V AR , EM X , EN , E FOZ 
3 NGN • ENI , ERR,FC, FCCF , FCCFLG , FC F ,E C FPR , FD , FOPR , FRR E , FR TH , G » GC » G X, H , HFOZ 
4AW,HHAT t HP,HT, HVAR,HW,H2, I CELL, II, IN, J J , J JLI M, JN ♦ K, K K, K N , LL I M , NK W, FOZ 
5NN»N0,NXTNT, P AT M, P IVAR, PR, PRP»PRW,RBVAR, RET, RETHjk HO UI * KHOW , RO , ROPFOZ 
6,R0VAR,R0W,RRI,PRN,RRTVAR , PR X, RSERR * R S I S AV , R SLV Ak , RX , SH t AR , SP , S V ARFOZ 
7 »SWpSX,T AW, TEMP f TEMPlO, TEMPI l , TE MP 1 2 , T EMP 14 , T EMP 2 , Tfc MP J , T EHP 4 , TE MPFOZ 
P5,TEMP6, TEMP7,TEMP8 f TFMP9,TFP,TI VAR, TK,TPP, TRAN, TTU ,T M , T X ,W V AR, XI FOZ 
9N,XMIN, X2REX, Z, ZMAX, ZM[N FOZ 

REAL IN, JN,KN FOZ 

COMMON F 13) , AI3) ♦ ALPHEI3* * X I NT ( 9Q I , TWT ( 99 I ,Z TABU 6) , TAB INI 6) * TAB JNFOZ 
1(6) ♦ 0 XL T A 8 1 20UDELM 2) ,RSLG! 2) ,ALG( 21 , ENG I 2 ) ,AN2< 7) FOZ 

COMMON FRXTI20J ,FRXLGT<20 ),FCXT( 20 1 , FC XL GT ( 2 j ) , FkTtil *0 1 , FRL GT < 2 0 ) , FOZ 
1FCTRI 20) ,FCL GT t 20 I ,XW( 1001 ,F IN6I 100) ,R$LWI 100) » SHEER UOOItXI 160) ,SFOZ 
2< 1601 ,PM 160 ) , XC I i 60) t R0( 160 1 , W( 160 ) ,PRT( 160 I f XMAXTb I 20) ,DUnxT< 160FOZ 


3), DR D XT I 160),OPOXT( 160),DP80XT(1 60) , V ARI 2 ) ,OERU> , CU VAR 121 , W S AV f 16 FOZ 
40),PRTSAV< 160l,XSAV(l60),RSLSAV( 16Q),REXSAV< 160) .ENSAV4 160) ♦ CFSA V( FOZ 
5160) ,TK TABOO I ,PRTAB(210) , PA T ABt 71 , XK W I 1 60 ) , WKM U6QI ,RSLKWI160) FOZ 
COMMON /BLOCK/ PL T 11 160), PLT 2 ( 160KPLT3I 160) ,PLT4( 16 0) , P LT 5 ( 1 60 ) , P FOZ 
ILT6U60) fPLT7( 1 60 ) , PL T 8( 1 6 0) iPLT9U60) t PLT 101160), PL Till 1601 f PL T 12 FOZ 
2 ( 160 ) , PLT13 I 160), PLT 141 160), PL T1 5 ( 160 > , NK WSA V FOZ 

PRN=l*/( COE 1M COE3-COE2*V ) *V t FOZ 

FZ= SORT ( RRN ) FOZ 

RETURN FOZ 

END FOZ 
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1 FOFZA . - Function subroutine FOFZA computes the real gas F^ function to 

2 correlate the skin-friction data. This subroutine is called by 

3 VGAUSS for integration. 


FOFZA | 

n 

r 

Computes 1 

~ ’ 

i (EQ. 12) 
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Call RGASH 
for p 1 

I 

Computes the integral F^ 
through the boundary layer (EQ. 21) 

f RETURN ) 
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1 

2 


FUNCTION FOFZA (V 9 FZ) 

FUNCTION CALLED BY VGAUSS FOR INTEGRATION 
FOR SPALDING-CHI ft SKIN FRICTION 
FIND INTEGRAL WRT.U/UE FOR EOt 21 I 


THROUGH BJ UNO ARY LAYER 


FZA 
FZA 
FZA 
FZA 
FZA 
FZA 

COMMON XLSH* XL SHI # THCR* JL IMt KL MM 9 TXLCl ( 450 ) T m ( 45 J) » IS (4501 f TP(45FZA 
101 * T XL( 450) v TYLS( 450 ) t TSS ( 45 0 > FZA 

COMMON ENX 9 FPOPT 9 ALX f RAFt ALM IN tCOPT, STHCR ,Tl ,T2 f L 9 XV 0* PS I FZA 

COMMON CMTOPT FZA 

COMMON ALGN* AN ♦ ANZ# AP* AVAR 9 A AX 9 CE B, CEBP 9 CEM*CEMP 9 ^ FBMT»CFB2 9 CF ERFZA 
IR 9 CFI ,CFMT 9 CP 2 tCF 2 ! ,CN 9 COE I 9 C0E2 9C0E3 tCTHCR 9 DEL* DtLAM, DELS , DERR 9 ONFZA 
29 OPVAR 9 ORBVAR 9 DRV AP9DSrH90UVARtE9EK9Fl9eLT9ELVa9tMU* EMVAR 9 FMX 9 EN 9 EFZA 
3NGN 9 ENI 9 ERR 9 FC 9 FCCF 9 FCCFL G t F CF 9 F CFPR 9 FD 9 FDPR 9 FRRE 1 FRTH 9 G 9 GC 9 GX 9 H r HFZ A 
4 AW 9 HH AT , HP 9 HT t HV AR 9 HW f HZ 9 l CE LL ♦ I I 9 ! N 9 J J 9 J JU M 9 JN 9 k . K Kt KN « LL I M 9 NKW 9 F Z A 
5NNiN09NX!NT* PATM, P I VAR 9 PR 9 PR P* PP W 9 R BV AR , RET , RETH 9 ft HO U 1 9 R HOW 9 RG . ROPF ZA 
6fR0VAR9R0Wf RR I ♦ R R N» RRT VAR # RR X 9 ft SERR 9 R S I S A V 9 RSL VAR 9 RX f SHE AR * S P ♦ S V AR F Z A 

79SW9SX9TAW9TEMPtTEMPI09TEMPn9TFMP129TEMP149TEMP2,TEMP3tTEM p 4tTEMPFZA 
R59TEMP6fTEMP7tTEMPB,TEMP9.TFP9TI V AR 9 T K <,TPP *TR AN 9 T TU *T * 9 TX 9 W V AR 9 X I F Z A 
9 N 9 XMIN 9 X2REX» Z t ZMAX, ZMIN FZA 

REAL IN » JN 9 K N FZA 

COMMON F (3 ) 9 A (3 ) 9 ALPHE C 3 ) • X I NT < 99 \ 9 T WT ( 99 ) 9 Z TABL 4 6) 9 TAB INI 6) f T AB iNFZA 
1(6) 9 O XL TAR (20) ? 0ELK(2)9RSLG( 2) t ALG( 2 5 9 ENG (2)# AN 2(7) FZA 

COMMON FPXTC 20) , FRXLGT (20) f FCXT( 2 0 > 9 FC XLGT ( 20 ) • FRTBl 20) 9 FRLGT \ 20) 9 FZA 
1FCTB ( 20) tFCLGYt 20 ) 9 X W tl 00 ) ,F t N 6 ( 1 00 ) 9 RSLW (100 1 9 SHE ER UOOItXt 160) 9 SFZA 
2U60t9pni60I tXCf L60l f RB( 160 UW( I60)9PRT( 160 ) 9 XMAX TB ( 2 0 J 9 OUOXK L60FZA 
31 9 OROXK 1601 9DPOXT(160KORROXT(160I 9 V AR1 2 ) 9 DERI 2 > 9 C J V AfU 2 ) 9 W S AV ( 16FZ A 
40) t RRTSAV< 160),XSAV( l60)tRSLSAV< 160) *PEXSAV( 1601 *ENS AV ( 1 60) 9 CFS AV ( F7 A 
5160) tTKTABOO) 9P C T4B(210I 9 PA TABC 7) 9 XKWU 6 O l f WKW( 160) *RSLKWt 160) FZA 
COMMON J G AS FZA 

COMMON /BLOCK/ PL T 1 (160 ) 9 PLT 2 ( 16 0 ) 9 PL T3 ( 160 > t PL T 4( 160) >PLT5( l60) f PFZA 
1 LT6( 1 60 ) 9 PLT7 ( 160 ) * PLT8( 160) tPLT9< l60) t PLT10( 1601 9 PL TIL l 160 > t PL T 12 F ZA 
2(160) ,PLTl3(16Q>9PLT14(160),PLTl$(160>fNKWSAV FZA 

C0N2=V FZA 

FZA 
FZA 


0*LE.U/UE*LT..0l r*i 


• 0ULE.U/UE.LE..1 
U/UE .GT • • i R *! 1 1 

IF ICON2-.01) 2 9 1 
IF ( C0N2-® 10 ) 3*4, 
K = 1 


p = u 


FZA 

FZA 

FZA 

FZA 

FZA 

FZA 
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non noo^ooo^ 


3 


GO TO 5 

FZA 

43 

K-2 

FZA 

44 

GO TO 5 

FZA 

45 

K=3 

FZA 

46 


FZA 

47 

EQl 10 ) 

fza 

48 


FZA 

49 

HHAT= ai K M-F* K |*C0N2**ALPHE IK ) 

FZA 

50 


FZA 

5i 

EOU 2 ) 

FZA 

52 


FZA 

53 

H«HW*TEMP8*HHAT— TE MP7*CON2*CON2 

FZA 

54 


FZA 

55 

RMO FROM REAL GAS USING H AND P 

FZA 

56 


f ZA 

57 

CALL RGASH ( PIVAR?RK*AX?H*TX » SX> ERR * IGASI 

FZA 

58 

RRI*RX/ROVAR 

FZA 

59 

FZ = SG*TIRRn 

FZA 

60 

RETURN 

FZA 

61 

END 

FZA 

6 2- 
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1 IHPH2 .- Subroutine INPN2 reads NAMELIST $N2 if CARD = 1. is input. Given 

2 cone angle, shock angle, constant pressure and entropy this subroutine 

5 computes tables of x/r^, r t/ r n » s > P on body and r s /r n> s on shock. 
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SUBROUTINE INPN2 


INP 
INP 

IF INPUT NOT ON T APE , PRES SUR E AND ENTROPY CONST ANT , S HOCK ANGLE INP 

GIVEN INP 

SETS UP TABLES AT X CENTERLINE 1 NCREMENT , COMPUTES X CENTERLINE* INP 
Y CONE t Y SHOCK INP 

INP 

COMMON XLSH, XLSH1 , THCR » )L I M» KL IM » TXLCL I 450 > »T YL 1 450) ,TSI450) ,TP(45INP 
101 ,TXL1450) ,TYLS<450l ,TSS(450) INP 

COMMON ENX ff FPOPT,ALX»RAF ( ALMTN,COPT,STHCR,Tt,T2,L,XVG,PSI INP 

COMMON CMTOPT INP 


COMMON ALGN,AN,ANZ,AP,AVAR,AW,AX ,CEB,CEBP»CEM,CEMP,CFBMT ,CFB2,CFER INP 
lR,CFI,CFMT,CF2,CF2l,CN,COEl,COE2,COE3,CTHCR,Dtt»DfcLAN,QtLS,DERR,ONlNP 
2 * DPVARtDRBVAR , DRV SR ,OSTH , DUV AR , E , E K, EL , ELT * ELVQ, EMU, EMVAR,EMX,EN,E INP 


3 NGN, EN I »ERR»FC«FCCF» FCCFLG ♦FCE»FCFPR»* : D*FOPR»FRkEfFR 
4AW,HHAT,HP,HT»HVAR,HW,H2,ICE LL , I I . IN , J J , J JLI M, JN, K.K 
5NN. NO, NX INT,PATM,PIVAR,PR, PR P , PR W, RBVAR ,RET,RETH, RUG 
6 »ROVAR ,ROW,RRl ,RR N» RRTVAR , RR X ,RSERR ,n $ IS A V,RSLV AR ,RX 
7, SW,SX, TAW, TEMP, TEMP 10, TEMP l 1 , TEMPI 2 , TEMP 14, TtMP<:,Tfc 
«5,TEMP6,TFMP7,TEMP8 ,TEMP9 , TE P, Tl VAR , TK ,TPP» TRAN,T T1 1 
9N.XM!N,X2REX,Z,ZMAX,ZMIN 
REAL IN, JN,KN 

COMMON FI3)iA(31< ALPHE ( 3 ) « XI NT l 99) , TWTI 99 I , Z TABL C 6> , 
116) ,DXLTAB(20)*DELK(2I,RSLGI2)*ALG(21 , ENG (2), AN 2(7) 
COMMON FRXTI 20),FRXLGT(20) ,FCXT( 20) , FCXLGTI 20 ), FRTBI 
IFCTBI20) , FCLGT I 20 I .XW(IOO) ,F IN6I 100) ,RSLW( 100>.SH££* 
21 160), PI 1160), XC( 1601, Rft< 1601* Wf 160) ,RPTI 160) .XMAXT9 
3 ) , DROXT I 160 I , OPOXT I 160 ) , DP BO XT |l 60) , V AR ( 2 ) ,DER« 2 ) ,CU 
AO) ,RRTSAV8 160) ,XSAVI 160) ,RSLSAV( 160) , REXS A VI 160 8 , ENS 
5160),TKTABI30) ,PRTAB(210 ), PATABI 7 ! , XKWI 160) ,WK«I 160) 
COMMON /8LK/ CV1 ,C V 2 ,CV3»CV4 ,CV5 , CV6»CV7,C V8, CV9 ,C VI 
113,UNIN,UN10 

COMMON /BLOCK/ PL Tl 11601 , PLT2I 160 1 , PLT31 160 ) , PLT41 16 
ILT61 160) « PLT7 1160 ) ,PLT8l 160 ( , PLT9I 160 ) , PLT 101 160) , PL 
2(160) ,PL TUI 1608 , PLT141 1 60 > , PLTl 5 1 160 > ,NKWSAV 
NAMELIST /N2/ DFLTX, TP»TS , TH SO 

PE AO NAMELIST/N2/ 

DX ,P,S*THETAS(OEG) 

READ 15, N2) 

IF IENDFILE 5) 1,2 


TH,6,GC,GX,H,HINP 
K,KN,LLIM,NKW, INP 
UI , RHOWtR 0,R0P I NP 
, SHEAR, SP.SVAP INP 
MP3, TEMPA, TEMP INP 
,TW,TX,WV AR , XI INP 
INP 
INP 

TABINI6) » T A8 )N INP 
INP 

20) ,FRLGT I 20 ), INP 
I 100) »X< 160) ,SINP 
120) .DUDXTI 160INP 
VARI 2) ,WSAV< 16 I NP 
AVI 160),CFSAV( INP 
jRSLKWI 160) INP 
0, CV11, CV12.CV INP 
INP 

0 ) , PLT5I 160 >,P INP 
TUI 160) , PLT 12 INP 
INP 
INP 
INP 
INP 
INP 
INP 
INP 
INP 
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'Ogo-^o- ui o o ^ o n o r> o r> r> non no 


1 CALI EXIT 

2 WRITE ( 6 , N2 ) 

IF (UNIN-1.) 3*3*4 

3 Tf>»TP/CV 10 
TS = TS/CV4 
THSD=THSD/CV9 

* TXLCL ( 1 ) =0 

Tssm=T$m 

THSR=THS0*.01745329 
TYL ( 1 ) = 0 
TYLS( 11 = 0 
TXL (11=0 

SET UP TABLE 0 P BODY PTS X /LCL ,R B/L ♦ S ,P, X/L 
AT OX INCREMENTS TO END OF BDOY 
SFT UP TABLE OF SHOCK PTS RS/L.S 

SAVE COUNT OF NO. OF BODY AND SHOCK PTS IN TABLES 
00 B J=2,45J 

TXLCL ( J ) =TXLCL ( J- l M-OELTX 
BODY RADIUS 

TYL ( J » = TAN( THCR )*TXLCL( J) 

SHOCK RADIUS 

TYLS( J) =TAN(THSR)*TXLCL( J) 

TP( J)*TP(J-U 
TS ( J) =T S ( J-il 
TSS < J ) = TS ( J 1 

X/L 

XL=TXLCL ( J )-T2 
IF (XU 5,5,6 
TXL (J)-ACOSr l.-TXLCLl J)) 
no TO 7 

TXL t J )=- Tl + XL/CTHCR 
IF (TXLCLI J)-XMAXTB(20>) 8,8,9 
CONTINUE 
JLIM* J 

KL IM* J 
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66 
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67 
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70 

INP 
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75 

INP 
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77 

INP 

78 

INP 

79 

INP 

80 

INP 

81 

INP 

82 

INP 

83 

INP 

84 

INP 
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RETURN 
END ' 


TNP 86 
TNP 87' 
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1 RFCAL . - Subroutine RFCAL computes Reynolds analogy factor for VanDriest 
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skin-friction theory. 
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:al 
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Computes R from Table I 
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SUBROUTINE RFCAL ( RAFX) RFC 

COMPUTES REYNOLDS ANALOGY FACTOR FOR RFC 

VAN DRIEST SKIN FRICTION RFC 

COMMON XLSH,XISH1 e THCR * JL I M, KL I W , TXLCL *450 Jt TYL 1450) ,TS <450 1 , TP 5 45RFC 
10) *TXLC 4501* TYLSI 450)* TSS 1450) RFC 

COMMON ENXtFPOPT* ALX,RAF # ALM 5 N, C OPT f STHCR »T 1 tT2 ♦ L * XV 0* PS I RFC 


COMMON CMTGPT ~ T * 

COMMON ALGNt AN* AN 1 1 APfAVAR »AW f AX ®CEB f CEBP *CEM,CEMP i C FBMT *CFB2#CFERRFC 
lR*CFI*CFMTffCF2»CF2I*CN?C0Elt> C0E2 *C 0E3 * CTHCR t DEL? DELft MODELS? DERR? DNRFC 
2 •OPVARt DRBVAR * DRV AR * DSTH *DUV AR , E * EK # EL ? ELT , ELVQ, EMU? EMV AR* EMX ? EN ? ERFC 
3 NGN,FNI*ERR?FC*FCCF*FCCFLG*FCf *FCFPR,FO*FOPR*FRR£,FATH*G*GC?GX*H*HRFC 

4 A W * HHAT » HP * HT * HV AR?HW?H2* ICE LL ? I I p IN* J J * J JL ? M* M * K , K K« K N >LL I M # NKW # RFC 
5NNtN0*NXINT*PATHfPIVARtPRtPRP*PRHfRBVARfRET^RETHtRN0UI*RH0I|*R0fR0PRFC 
6,R0VAR»R0VURRI ,RRN, RRT VAR ?RR X, RSERR? RS1SAV .RSLVAR #RX # SHEAR* $P * SVARRFC 
7 « SW » S X? TAW*TEMP*TEMPl0fTEHPlltTEMPl2*TEMP14*TEHP2tT£MPifTEHP4*TEHPRFC 
85fTFMP>6*TEMP7tTEMP8 *TEMP9 #TEP,TIVAR e 7K,TPP? TRANtTTU #T tf « T X >WV AR » XI RFC 
9 N * XM l N* X2REX* Z'ZMAX«ZMIN 

REAL IN p JN?KN RFC 

COMMON FI3>« AC 31* ALPHE(3l«Xl NTI 99 ) f TWT« 99 & * ZVA&L I 6) * TAB INC 6) t TA8 JNRPC 
116) pDXLTAB(20) t HE LX < 2 ) » R SL G< 2 ) . At G(2 5 * ENG t 2 1 ♦ AN2 4 7 ) RFC 

COMMON FRXT(20&fFRXLGTt20& t FCXT( 20 & ? FC XLGT C 20 ) • FRT&t 20) ?FRLGT ( 20 ) * RFC 
IFCTBI20KFCLGTI20) tKWUOOl *FIN6< 1 00 K RSLW CIOOI 9 SH&E* C 100 1 1 X< 1601 *SRFC 
2( 160)*Pff 160) *XCfl 160KRB « 160) 160) *RRT( 1601 pXMAXTB <20 ) ?DUOXT < 160 RFC 
3 ) f ORDXTfl 1601? DPDXTU60)?DPBOXTH60) « V AR « 2 > *OER<l 21 pCU)VAR< 2 5 pMSAVd 16RFC 
40) *PRTSAV!160i # KSA V ? 160) * R SL SAVt l 60 > * RE XS A V U60 >* ENS AV 1 160 1 # CFS AV< RFC 

5 160UTKTA8d30 5 tPRTABC2lO)f PATABI 7KXKW< 160»*WKWI 160) ,RSLXW< 160) ♦ IGRFC 

RFC 


RFC 


5 

6AS 
COMMON XXI 

COMMON ACFT 1 22 0 *TREXTC22) * ACFLGT <22 U TRLGT J 22 1 1 R6XCF *H0> XO 

hwt=hw/mt 

IF CHWT-.2J 1,2*2 

RAFX*U 

GO TO 5 

IF CHWT-.65B 3*3,4 

RAF X=.83Ufr* 9675* HWT->*61 42 *HWT**2 

GO TO 5 

RAFX® l%2 

RETURN 

END 


RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 

RFC 
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1 RFCAL1 . - Subroutine RFCAL1 computes Reynolds analogy factor for Spalding- 

2 Chi and Eckert's skin- friction theories. 
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SUBROUTINE RFCALl (RAFX) 
COMPUTES REYNOLDS ANALOGY 
SPALOING CHI AND ECKERT 


FACTOR FOR 
SK IN FRICT ION 


COMMON XLSH, XLSHl.THCP , JL IN, KL IM » TXLCU 450 1 , TYL I 450) 
1 0 > « TXL t 4 50) » TYLS< 450) ,T$S( 4501 
COMMON ENX,FPOPT, ALX.RAF , AL« I N ,COPT , STHCR ,T1 ,T2#L ,XV 
COMMON CMTOPT 

COMMON ALGN , AN #6NZ , AP , AVAR , AW , AX ,CEB,CEBP ,CEM,CEMP,C 
IP. CFf ,CFMT»CF 2 ,CF 2 I»CN,C 0 E 1 , C0E2,Cnf 3.CTHCR, DEL.DfcLA 
2. DP VAR, ORB V AR , DR VAR #DSTH #OUV AP ,E , EK, FL , ELT , ELVG. tMU# 

3non,fni»erp#fc,fccf,fccflg,fcf,fcfpr,fd,fdpr, frre.fr 

4AW,HHAT#HP,HT,HVAP ,HW,H2, ICFLL.n , IN, JJ, JJLIM, JN.K.K 
BNN.NO.NXlNT.PATW.PIVAR.PR.PRP.PRW.RBVAR.RETtkfcTH.kHO 
6.R0VAR.R0W.RRI .PPN.RRTVAP , PP X ,»S ERR , R S IS A V ,RSLV AR , RX 
7. SW.SX, TAW, TEMP, TEMP 10, TEMPI 1. TEMP 12, TEMP 14,TEMP2,Tt 
8B.T£MP6,TEMD7,TEMPS,TEMP9, TEP,TI VAR ,TK »TPP , TRAN# T U1 
9N.XMTN, X2REX.Z,ZMAX#ZMIN 
P C AL IN, JN» KN 

COMMON F ( 3 ) ♦ A ? 3 I , AL °HF ( 3 ) , XI NT ( 99 1 , TWT ( 99 ) , Z TABL ( 6) , 
1(61 »OXLT AB( ?0 J , OFLK ( 2 > »B.SLG( 2) ,ALGl 2) .ENG! 2) , AN2I 71 
COMMON FRXT ( 20) ,FRXLGT(20 I.FCXTI 20 > , FC XLGT ( ? 01 , FR T8i 
1FCTB< 20) ,FCLGT( ?0) ,XW( 100) ,F IN6< 100) . RSLW UO J { , SHt E< 
2 ( 160 < ,P I ( 1601 , XC( 160) #R8 I 1601 ,W< 1601 ,RRT( 160) , XMAXTB 
3 ) .DPDXT 1160), DP0XTU60) ,DPBOXTC160) # VARI 2) ,OfcR( 2) #CU 
401 ,P.P TSAVU60) , XSAVt 160) ,RSLSAVI 160) ,REXSAV( 160) , ENS 
5I60I,TKTAB(30),PPTABI210),PATAB( 7) , XK WJ160 ) , WKWU60) 
6 A S 

COMMON XXI 

COMMON ACFT( 22) ,T RE XT (22 I , ACFLGT ( 22) , TRLGT ( 22 ) , kEXCF 
PAFX = l.Z PRP#*. 666 66667 
RET UP N 
END 


RFl 1 
RFl 2 
RFl 3 

, IS 1 450 ) ,TPC45RFt 4 
RFl 5 

G» PS I RFl 6 

RFl 7 

FBMT *CFB2 ,CFER RFl 8 
M, DELS, DERR, DNRF1 9 

EMVAR,EMX,EN,ERFl 10 
TH,G,GC,GX,H,HPF1 11 
K,KN,LLTM,NKW,RFl 12 
Ui ,RH0W,R0,R0PRF1 13 
, SHEAR, SP.SVARRF1 14 
MP3 , TEMP4 , TEMPRF1 15 
,fW ,TX,WVAR,XIRF1 16 
RFL 17 
RFl 18 

TABIN(6) , TAB JNRFl 19 
RFl 20 

20) ,FRLGT(20),RF1 21 
UOOI ,X< 160) ,SRF1 22 
(20), DUDX T ( 1 60 RFl 23 
VARI 2) ,WSAV( 16RF1 24 

AVI 160),CFSAV(RFl 25 
,RSLKW( 160) # IGRFt 26 
RFl 27 
RFl 28 

,HO,XO RFl 29 

RFl 30 
RFl 31 
RFl 32- 
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1 R GAS . - Subroutine EGAS computes the thermodynamic properties for a real gas. 

2 The flow properties p g , , T g , S g , h e , and for a real gas in ther- 

3 modynamic equilibrium are calculated by the computer subroutine (RGAS) 

4 described by Lomax and Inouye in reference 27. The subroutine RGAS requires 

5 use of the Ames real gas TAPE10 containing information for nitrogen on file 

6 1 (IGAS=1 ) and information for air on file 2 (IGAS=2). Subroutine ROLL and 

7 SERCH are used by subroutine RGAS to locate the information on TAPE10. 

8 During the calculation, thermodynamic data at a point are found by entering 

9 the RGAS subroutine with pressure and entropy. For calculation of density 

10 profiles through the boundary layer, subroutines RGASR and RGAST are used 

11 to allow thermodynamic data to be found for a given enthalpy (or temperature) 

12 and pressure. The procedure in this case is to enter the RGAS subroutine 
15 with various estimated values of entropy and the local pressure until the 

14 value of entropy is found that yields the desired value of enthalpy (or 

15 temperature ) . 
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O ^ ^ N> 


c 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r, 

c 

c 


c 

c 

c 


l 


7 


SUBROUTINE RGAS < PX,RX * AX* HX * TX, SX* RR X*GX f NTEST, NUMX ,NGA $ 1 RGS 1 

RGS 2 

AM£S PROGRAM FOR REAL GAS EOU FL f 8 R FUM THERMODYNAMIC PROPERTIES RGS 3 

AMPS TAPE MOUNTED ON UNIT 10 RGS 4 


PX PRESSURE LBS 7 FT 2 


RGS 

5 

sx DENSITY SLUGS/FT 3 


RGS 

6 

AX SPEED OF SOUND FT/SEC 


RGS 

7 

HX ENTHALPY FT 2 /SEC 2 


RGS 

8 

TX temperature dsgr 


RGS 

9 

SX ENTROPY FT 2 XSEC 2 DEGR 


RGS 

10 

PRX GAS CONSTANT FT 2 /SEC 2 DEGR 


RGS 

11 

GX RATIO OF SPECIFIC HEATS 


RGS 

12 

NTFST =1 FOR REAL GAS ,*0 FOR PERFECT GAS 


RGS 

13 

NUMX =5 FOR PRESSURE AND ENTROPY INPUT 


RGS 

14 

NGA S =2 FOR AIR ON FILE 2 OF AMES TAPE 10 


RGS 

15 



RGS 

16 

AMES SUBROUTINE TO FIND RHO,A,H,T WHEN P AND S GI 

VEN 

*GS 

17 

CALLS TAPE 10 AMES REAL GAS TAPE (FILE 2 IS AIR) 


RGS 

18 

USES SUBROUTINES ROLL AND SERCH TO LOCATE ON TAPE 

DESIRED GAS OATARGS 

19 

RGASR WALKER TEMP CONVERTED TO RANKINE 


RGS 

20 

DIMENSION NIL! 51 , JXXI 3 I, OZ Z ( 9 I , TZt 3000 ». NOZ 189 I 

RGS 

21 

DIMENSION TH 1 5*6001 * NDL( 4 » 111 , NDU( 4 » 1 U« AN< 4 », 

Cl 7)9 

ANR! 17 ) » BRGS 

22 

NI 4 J 


RGS 

23 

EQUIVALENCE (TZtTH), (NDZ.NDLI, (NDZI 45 I,NDU» 


RGS 

24 

DATA KEY,NTIMFS/ 0 , 0 / 


RGS 

25 

DATA WOP 01 » WORD?/ 6 HNUM HI. 6 HNUM LOZ 


RGS 

26 

DATA NTAPE/IO/ 


RGS 

27 

DATA GTE ST /OZ 


RGS 

28 

data gtestr/oz 


RGS 

29 

K EY = KEYF 1 


RGS 

30 

P = PX 


RGS 

31 

s=sx 


RGS 

32 

R=RX 


RGS 

33 

NUM =NUM X 


RGS 

34 

IF I NUM I 6 * 6*2 


RGS 

35 

IF I NUM- 9 I 7 , 7,3 


RGS 

36 

WORO-WOROt 


RGS 

37 

WRITE I 6 , l 03 > WORD 


RGS 

38 

CALL EXIT 


RGS 

39 

W 0 RD=W 0 RD 2 


RGS 

40 

GO TO 4 


RGS 

41 

IF (NTESTI 3 , 39,99 


RGS 

42 
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non 


a IF (NF1PST-NGAS ) 9,12,9 

9 NFIPST=NGAS 
IN0=0 

NF!LES=NGA S- 1 

CALL POLL 1 NT APE* NF ILFS* I NO) 

FOP TAPE WRITTEN BY FORTRAN 2 

READ INT APE I < NDZ ( N ) ,N*l, B9I 
00 10 N=1»8B 

10 NOZIN >=NDZ(N1 M 2**181 
N^M-NOZI 89) / ( 2** 1 8 I 

C 

PEAO (NT APE) (TZI N) ,N*i»NMM> ,WT«IX, (C (N) ,N-l,7t 
REW IND NT APE 
CALL EVICT I6LTAPEL01 
DO 11 N=l,88 

11 NDZ(N)=5*NDZ I N> 

CONC 3 WTM IX/28.966 
P0 = 2l 16 » 

P0= .002498*CQNC 

RRR=1716./C0NC 

RRX=RRR 

PTO=RRR*493.635 
SOP OR 0= SORT! RO/PO t 
B=TZINMN-2I 
F *TZ I NMM-U 
0=TZI NNM) 

FM= 2. 1632*<,346 8*C0NC 

aa=o*fn 

rr = r*FM«-1. 

CCC=B+FN 

12 P=ALOGIO(P/POI 

GO TO ( 22,22,22, 22* 13. 3, 3, 3), NUM 

13 REAL=S/RRR 

GG= ( R EAL-C ( 1 )-C ( 2 )*P II / (C( 3) ♦P*(C ( 4) *P*C( 5 ) I) 
R=C ( 6l*GG*C< 7 )*P 
P.L *P—B 
CC=CCC-P 

R H=-CC* ( l.*AA*CC/( BR*8B) )/RB*.005 
I F (RH+7.) 14,18,15 

14 RH—7. 

15 IF (R-RH) 16,17,17 


RGS 

43 

RGS 

44 

RGS 

45 

RGS 

46 

RGS 

47 

RGS 

48 

RGS 

49 

RGS 

50 

RGS 

51 

RGS 

52 

RGS 

53 

RGS 

54 

RGS 

55 

RGS 

56 

RGS 

57 

RGS 

58 

RGS 

59 

RGS 

60 

RGS 

61 

RGS 

62 

RGS 

63 

RGS 

64 

RGS 

65 

RGS 

66 

RGS 

67 

RGS 

68 

RGS 

69 

RGS 

70 

RGS 

71 

RGS 

72 

RGS 

73 

RGS 

74 

RGS 

75 

RGS 

76 

RGS 

77 

RGS 

78 

RGS 

79 

RGS 

80 

RGS 

81 

RGS 

82 

RGS 

83 

RGS 

84 

RGS 

85 
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16 

R=RH 

RGS 

86 

IT 

IF <3,-RU 1 8 1 19 ? 1 9 

RGS 

87 

18 

RL-3* 

RGS 

88 

19 

IF <RL-R> 20,21*21 

RGS 

39 

20 

R-P.L 

RGS 

90 

21 

NUMB=0 

RGS 

91 


NtMX=0 

RGS 

92 


NUMH*5 

RGS 

93 


N80T= 9~NUM 

RGS 

94 


NUP-NBOT 

RGS 

95 


GO TH 23 

RGS 

96 

22 

R^ALOGIO I P/P 0 > 

RGS 

97 


NUMM = 5 

RGS 

98 


NR0T=l 

RGS 

99 


NUP=NUM 

RGS 

100 

23 

continue 

RGS 

ioi 


IF < R l 24,24,26 

RGS 

102 

24 

NR=R-1. 

RGS 

103 


IF INR+7) 25,25,28 

RGS 

104 

25 

NR = -7 

RGS 

105 


GO TO 28 

RGS 

106 

26 

NR = R 

RGS 

107 


TF ( NR— 3 ) 28,27,27 

RGS 

108 

27 

NR a 2 

RGS 

109 

28 

DX = R — c Ln AT ( NR I 

RGS 

110 


NR = NR 4-8 

RGS 

lU 



RGS 

112 


IF (NUMM-9^NUN> 31,29,31 

RGS 

113 

29 

IF (F-.OOOOQII 105,30,30 

RGS 

114 

30 

IF f FM-F \ 83,31,31 

RGS 

115 

31 

DO 42 N1 =NBOT , NUP 

RGS 

116 


TF (Nl-NUMHi 32,41,32 

RGS 

117 

32 

NF-R l = Nt 

RGS 

118 


NFR?=Nl+4 

RGS 

119 


NL= NOLI N l,NR 1 

RGS 

120 


IF ( NLL I NER1 )— NL ) 35,33,35 

RGS 

121 

33 

J= JXX (NEP1 1 

RGS 

122 


DIFF2«F-TM1 5, J& 

RGS 

123 


IF 1DIFF2) 35,34,34 

RGS 

124 

34 

IF {OZZCNERU-ABS C0IFF2H 35,35,36 

RGS 

125 

35 

NU=N0U(N1*NR | 

RGS 

126 


CALL SFRCH I F , T H , NL , NU ,5 , J ,N FR 5 

RGS 

127 


J= J/5 

RGS 

128 


127 




D7Z{NER1I S ABS1 THI 5»J*l)— THI5»JH 

RGS 

129 


»XX tNERl 1 * J 

RGS 

130 


NIL INFRU =NL 

RGS 

131 

36 

XYZ=XYZ 

RGS 

132 


NL = N0UN1»NR*-1) 

RGS 

133 


If (NLL ( NER2 l-NL 1 39,37,39 

RGS 

134 

37 

K= J XX (NE F 2 1 

RGS 

13 5 


0IFF?=F-TH« 5»K> 

RGS 

136 


IF iniFFZ) 39,38,38 

RGS 

137 

3 S 

ic (0ZZ(N£R?I-ABS ( DIFF2II 39,39,40 

RGS 

138 

39 

N<J=Nr)U(Nl,NRMl 

RGS 

139 


CALL SERCH < F,TH, NL,NU,5, K ,NER » 

RGS 

140 


K=K /5 

RGS 

141 


DZZ INER2 >=ARS(THI 5,Ktl HTHI5,K IJ 

RGS 

142 


JXX < NFR2 )*K 

RGS 

143 


NLL 1 NER2 )=NL 

RGS 

144 

40 

YI = THCI , J>*F*(TH(2, mF*(TH( 3 , J) +F*TM I 4, J > ) J 

RGS 

145 


Y2 = TH( l ,<>♦£*( THf 2,K lfF*« THI 3 , M ♦ F*TH t 4,K > » ) 

RGS 

146 


AM<Nlt=Yl+0X*t Y2-Y11 

RGS 

147 


GO TO 42 

RGS 

148 

41 

ANtNl »=REAL 

RGS 

149 

47 

CONTTNUF 

RGS 

150 


IF (NUM-51 43,48,48 

RGS 

151 

43 

GO TO 147,46,45,44,44,44,44,441, NUM 

RGS 

152 

44 

SX= AN 14 I ^RRR 

RGS 

153 

45 

T X- AN (31*1,8 

RGS 

154 

46 

HX=AN(2>*RT0 

RGS 

155 

47 

A X= AN 1 1 ) /SQPORO 

PGS 

156 


GO TO 104 

RGS 

157 

4 8 

IF INUMM-9«-NU»» 50,49,50 

RGS 

158 

4 9 

PX=RQ*10 .*PR 

RGS 

159 


GO TO 43 

RGS 

160 

50 

DIPF= ABS ( I RE AL-AN I NUP ) I/REAL 1 

RGS 

161 


IF IOIPF-.OOOU 51,51,52 

RGS 

162 

5 i 

NUMM=9-NUM 

RGS 

163 


NROT = 1 

RGS 

164 


NUP *4 

RGS 

165 


GO TO 23 

RGS 

166 

52 

NUNB=NUMfl4l 

RGS 

167 


NI«X=NIMX*l 

RGS 

168 


IF (NIMX-20I 53,53,83 

RGS 

169 

53 

IF ( NUMB— 2 ) 54,61,80 

RGS 

170 

?4 

IF I REAL- ANI NUP 1 > 55,51,58 

RGS 

171 
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55 


Pl^R 

5 1- AN (NUP I 
R=R+.3 

TP fRL-RI 56, 57*5 7 

56 R = RL 

57 R2=R 
L = 0 

go rn 23 

58 R2 - R 

52- AN1NUP) 

R=R-,3 

If (R-RHI 59 v 60 f 6 0 

59 R-RH 

60 R 1 3 R 
L=l 

GO TO 23 

61 I P (LI 67,62,67 

62 S2 - AN (NUP I 

IF (S2-SII 64,63,64 

63 R = R2 

GO TO 65 

64 R=R2-(S2-RE4l )/C$2-Sn*(R2-R 1) 

65 IF (RL-P ) 66*72,72 

66 »=9L 

GO TO 7 2 

67 Sl^AN(NUP) 

IF (S2-SI) 69,68,69 

68 R=R 1 

GO TO 70 

6 9 R=<PEAL-Sl|/($2-Sn*<R2-RmRl 

70 IF (P-RHt 71,72,72 

71 R = RH 

72 IP (R2-RI 73,51,76 

73 NU M R = 1 
R1=R? 

Sl=s S2 
1 = 0 

IF (« 2* ,3-RU 75,74,74 

74 R2=RL 
R = R 2 

GO TO 23 

75 R2=R2«-.3 
R=R2 


RGS 

172 

RGS 

173 

RGS 

174 

RGS 

175 

RGS 

176 

RGS 

177 

RGS 

178 

RGS 

179 

RGS 

100 

RGS 

181 

RGS 

182 

RGS 

183 

RGS 

184 

RGS 

185 

RGS 

186 

RGS 

187 

RGS 

188 

RGS 

139 

RGS 

190 

RGS 

191 

RGS 

192 

RGS 

193 

RGS 

194 

RGS 

195 

RGS 

196 

RGS 

197 

RGS 

198 

RGS 

199 

RGS 

200 

RGS 

201 

RGS 

202 

RGS 

203 

RGS 

204 

RGS 

205 

RGS 

206 

RGS 

207 

RGS 

208 

RGS 

209 

RGS 

210 

RGS 

211 

RGS 

212 

RGS 

213 

RGS 

214 
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■ no TO 23 

76 , TF (R-R1J 77,51,23 

77 NIJMR =1 
R 2 = Rl 
S2=Sl 
L = 1 

IP (RH-RU.3) 79, 78,78 

78 Rl-RH 
R=R 1 

GO TO 23 

79 Rl=Rl-.3 
R=R 1 

GO TO 23 

BO IP ( REM.- AMI MUR 1 1 81,81,82 

81 R 1 = R 

GO TO 67 

92 »2=R 

GO TO 67 

93 IF (F-. OOOOOl > 105,34,84 

84 NTIMFS=NTIMESfrl 
WOTTE ( 6,109} 

WRITE (6,1101 PX 

IF (NUM-5) 95,86,96 

85 WR I TF (6*111) RX 
GO TO 97 

86 WR l TF (6,1129 SX 

87 IF ( NT! MES— 999) 104,89,88 

88 WRITE (6,113) 

GO TO 5 

89 L = 0 

IF (GTEST-GX) 90,92,90 

90 GTFST=GX 
Ll=2 

AMR (1 )=RRX 
ANR ( 2 )=GX 

AMP (39*&NR( 1)7(ANR(29-1. 9 
ANR(4)=ANRf U«-ANR(3> 

6NR ( 8 ) =49008.609- ANRt 3 t*ALOG( 1 71 . 6/ . 000l**ANk(2 I ) 

91 AMR ( L*5 I =L » / ANR ( L >2 ) 

ANR ( L *-6 9 =ANRIl«-4) /ANPIOl ) 

AMR (1*7 9 = ANR (L *6 ) / ANR (L+2 ) 

92 GO TO (93,93,93,93,98,99,100,102), NUM 

93 OUOD=P/R*#ANfi (L + 2) 


RGS 215 
RGS 216 
RGS 217 
RGS 218 
RGS 219 
RGS 220 
RGS 221 
RGS 222 
RGS 223 
RGS 224 
RGS 225 
RGS 226 
RGS 227 
RGS 228 
RGS 229 
RGS 230 
RGS 231 
RGS 232 
RGS 233 
RGS 234 
RGS 235 
RGS 236 
RGS 237 
RGS 238 
RGS 239 
RGS 240 
RGS 241 
RGS 242 
RGS 243 
RGS 244 
RGS 245 
RGS 246 
RGS 247 
RGS 248 
RGS 249 
RGS 250 
RGS 251 
RGS 252 
RGS 253 
RGS 254 
RGS 255 
RGS 256 
RGS 257 
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QUOT^R 

GO TO (97,96,95 * 94 * 98,99, 100,1021 , NUM 
9 4 S = A NR a f 8J*ANR! t *3 )*ALOG( OUOD) 

95 T=QUG17 ANPCL + 1 I 

96 H = GU0T*ANR(H-6) 

97 LL=LU1 

A-SORT( ANRtLL )*OUOT) 

GO TO 103 

98 FX=$-ANR |L*8> 

ex*EXP(EX/ANR<L<-3 ) ) 

RM P/EX) **ANR<L*5) 

01)00= P/R **ANR (L +2 ) 

OUOT- P/R 

GO TO 95 

99 R*P/<T*ANR(L+ll » 

QUOD=P/R ** ANR ( L + 2 ) 

QUOT=P/R 

S= ANR (L + 8)^ANR(L^3l <t AL0G( QUO 01 
GO TO 96 

100 ASSIGN 97 TO NJUMP 

101 T=H/ANR(L*4I 

P = P/ ( T*ANR(L+ l ) ) 

OUOO=P/R**ANR (L*2 ) 

QUO T=P/R 

S= ANR <L + 8)*ANR(L + 3)*AL.OG( QUOOI 
GO TO NJUMP, 197, 103) 

102 ASSIGN 103 TO NJUMP 
H<=ANPa*7)*A**? 

GO TO 101 

103 AX* A 
HX-H 
TX * T 

sx = s 

RX=R 

104 RETURN 

105 L = 8 
P = PX 
R=RX 

IF ( GTFSTR-GX I 106,92,106 

106 GTFSTR»GX 
Ll*9 

Z2 = Q 0 /l 0«**7 
pr=-7.+B 


RGS 258 
RGS 259 
RGS 260 
RGS 261 
RGS 26 2 
RGS 263 
RGS 264 
RGS 26 5 
RGS 266 
RGS 267 
RGS 268 
RGS 269 
RGS 270 
RGS 271 
RGS 272 
RGS 273 
RGS 274 
RGS 275 
RGS 276 
RGS 277 
RGS 273 
RGS 279 
RGS 290 
RGS 281 
RGS 282 
RGS 283 
RGS 284 
RGS 285 
RGS 286 
RGS 287 
RGS 288 
RGS 289 
RGS 290 
RGS 291 
RGS 292 
RGS 293 
RGS 294 
RGS 295 
RGS 296 
RGS 297 
RGS 298 
RGS 299 
RGS 300 
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PR«P0*10.**PR RGS 301 

Zl = pp RGS 302 

00 107 Nt=l»4 RGS 303 

NL=NDL(NU1| RGS 304 

NU=N0U(N1,U RGS 305 

F=0 » RGS 306 

CALL SERCH ( f »TH, NL t NU,5 , J »NER ) RGS 307 

RGS 308 

107 RN< N1 )=TH(1 . J) RGS 309 

RN< l)=ftN(l)/SQP0R0 RGS 310 

B N ( 2) =RN(2l*RT0 RGS 311 

8N< 3J=8N<3>*1.8 RGS 3i2 

8NI 4)=BNI4)*RRR RGS 313 

ANR19)*PR/(Z2*BNI 111 RGS 314 

RR X = ANR < 9 ) RGS 315 

ANR ( 121 c BN I 2) /BN I 3 ) RGS 316 

ANP(l0)=l.*ANR(9)/(ANR( 121-ANRI9) } RGS 317 

ANR (UMANRC 12>/ANR( 10) RGS 318 

ANRU7)=BNm*BN( l)*Z2/Zl RGS 319 

ANRU6)=BN(4)-ANR(U)*AL0G(2 1/Z2**ANR f 10) t RGS 320 

GO TO 91 RGS 321 

C RGS 322 

C RGS 323 

9 RGS 324 

108 FORMAT < 12H0 HP IN RGAS T 3X»A6) RGS 325 

109 FORMAT ( 1H0 * 10X * 36H0UTS IOE TABLES IN RGAS ENTERING rfITH) RGS 326 

110 FORMAT I 11X,2HP*,E13.6) RGS 327 

111 FORMAT < 11X,2HR=F14.6> BGS 32 8 

112 format i 11X, 2HS=,6! 3.6) r G $ 329 

113 FORMAT ( 20X 1 2 BHEX IT CALLED ON TENTH FAILURE! RGS 330 

FND RGS 331- 
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1 RGASH . - Subroutine RGASH computes thermodynamic properties density, speed 

2 of sound, temperature and entropy given pressure, enthalpy and 

3 an estimate of entropy. 

4 

5 

6 

7 

8 
9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 



25 
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NASA-Langley Form 22 (Apr 69) 







non 4 co nonn^j <> j\ ^ r> n n <\j h- nooooo 


SUBROUTINE RGASH I PX ,RX , AX ,H X, TX » SX , ERR, ! R AS ) 


GIVEN PRESSURE. ENTHALPY. ESTI HATE ENTROPY 
VARY S UNTIL H WITHIN ERR OF DESIRED VALUE 
FIND DENSITY.SPEEO OF SOUND. TEMPERATURE, ENTROPY 
REAL GAS EQUILIBRIUM THERMODYNAMIC PROPERTIES 

DIMENSION SGI2I, HGI2I 

HW=HX 

SGI l MSX 

J J = 1 

GX=l .4 


RG AS GIVES RHO.A, T.S 

CALL RG AS IPX.RX.AX.HGl JJ),TX,SG( JJI.RRX.GX, — I.5.IGASS 
IF I ABS I HG I J JJ-HW ) — FRR*HW i 10.3,3 
IF I J J- 1 I 4,4,5 
1 J=2 

SGI 2t=SG( 11*1.01 
GO TO 2 

IF l HOI 2I-HGI IM 7.6.T 

WRfTF (6, HI SGU ),SGI2>,HG( 1 » ,HG( 2 I , SGN» HW 
GO TO 10 

SGN=< ISGI2I-SGI 11 t i I HGI 2 l-HGI l II )*1HW-HGI U»*SGI 1) 

IF AN S.GT.I.E6 IS ESTIMATED.S WILL BE REDUCED TO 4o kt> AND 
OUTPUT OF S AND H VALUES GIVEN AND ITERATION CONTINUES 

IF ISGN-I.E6J 9,9,5 
SGN=4.E4 

WRITE (6,11) SG(1) , SGI 21 ,HGI 1) ,HG(2 I ,SGN,HW 
HG III =HG ( Z I 
SGI 18*SG(2) 

SG I 2 )=SGN 
GO TO 2 

0 SX= SG I J J I 
RETURN 


11 FORMAT I6E16.8) 


RGH 

l 

RGH 

2 

RGH 

3 

RGH 

4 

RGH 

5 

RGH 

6 

RGH 

7 

RGH 

8 

RGH 

9 

RGH 

10 

RGH 

11 

RGH 

12 

RGH 

13 

RGH 

14 

RGH 

15 

RGH 

16 

RGH 

17 

RGH 

18 

RGH 

19 

RGH 

20 

RGH 

21 

RGH 

22 

RGH 

23 

RGH 

24 

RGH 

25 

RGH 

26 

RGH 

27 

RGH 

28 

RGH 

29 

RGH 

30 

RGH 

3i 

RGH 

32 

RGH 

33 

RGH 

34 

RGH 

35 

RGH 

36 

RGH 

37 

RGH 

38 

RGH 

39 

RGH 

40 

RGH 

41 

RGH 

42 
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FNO 


RGH 43- 


135 



1 RGAST . - Subroutine RGAST computes thermodynamic properties density, speed 


2 

5 
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5 

6 
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8 
9 

10 

11 

12 
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25 


of sound, enthalpy and entropy, given pressure, temperature and an 
estimate of entropy. 
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NASA- Langley Form 22 (Apr 69) 





r> n i— n o n o o c*> 


SUBROUTINE RGAST l PX.R X, AX.H X. TX * SX .ERR. I GAS » 

GIVEN PRESSURE, TEMPERATURE. ESTIMATE ENTROPY 
VARY S UNTIL T WITHIN ERR OF OESIREO VALUE 
FIND OENSITY, SPEED OF SOUND. ENTHALPY . ENTROPY 
REAL GAS EQUILIBRIUM THERMODYNAMIC PROPERTIES 

01 MENSION SGI 2 I , TG(2) 

TW=TX 
SG ( l I =S X 
JJ = I 
GX=l.A 

RGAS GIVES RHO.A.H.S j 

CALL RGAS I P X ,R X , AX ,HX ,TG IJJ I . SG f J J > .RRX , GX , -1, 5, IGA S i 
IF (ABSITGI JJ»-TWI-ERR*TW) 5.2.2 

2 IF (JJ-1I 3, 3, A 

3 J J-2 
SG(2)-SG(1J*1.01 
GO TO l 

h SGN=< <SG(21-SG(l> I/ITGI2 )-TG( 1IH*( TW-TGC 1 1 ) *SG( 1 1 

TG < l >=TG 12) 

SG ( 1 1 =SG ( 2 I I 

SGI 2 J=SGN 

GO TO l | 

5 SX=SG( J J I 

RETURN 
C 

END 


RGT 

i 

RGT 

2 

RGT 

3 

RGT 

4 

RGT 

5 

RGT 

6 

RGT 

7 

RGT 

B 

RGT 

9 

RGT 

10 

RGT 

11 

RGT 

12 

RGT 

13 

RGT 

14 

RGT 

15 

RGT 

16 

RGT 

17 

RGT 

18 

RGT 

19 

RGT 

20 

RGT 

21 

RGT 

22 

RGT 

23 

RGT 

24 

RGT 

25 

RGT 

26 

RGT 

27 

RGT 

28 

RGT 

29- 
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1 R OLL ’~ Subroutine called by RGAS to position TAPE10 to proper file for 


2 gas properties. 

5 

4 

5 

6 

7 

8 
9 

10 

n 
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13 
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16 

17 

18 
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21 
22 

23 

24 

25 
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NASA- Langley Form 22 (Apr 6s) 



c* n n 


SUBROUTINE ROLL ( N, NF ILES . IND 1 

ROL 

l 


ROL 

2 

POSITIONS AMES TAPE 10 TO PROPER FILE FOR AIR 

ROL 

3 


ROL 

4 

REWIND N 

ROL 

5 

NEOF=0 

ROL 

6 

IF INEOF-NFILES ) 2,4,* 

ROL 

7 

READ INI A 

ROL 

8 

IF (FNDFILF N) 3,2 

ROL 

9 

NEOF=NEOF+1 

ROL 

10 

GO TO l 

ROL 

11 

RETURN 

ROL 

12 

END 

ROL 

13- 
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1 SERCH . ~~ Subroutine called by RGAS to locate information for gas properties. 


2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
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NASA- Langley Form 22 (Apr 6 9) 



c 

c 

r. 


SUBROUTINE SERCH 1 X«0, NL , NU, NS.NOUT ,NERR ) 
AMES PROGRAM USED BY PGAS 


o r mfnsion oi i,i> 

nerrso 

K = NL4-NS 

fF <Q<NL,n~QtK,l H 1,1,4 

1 01 2 J=NL.NU,NS 

IF (X-0( J.II > 3,2.2 

2 CONTINUE 

3 NOUT = J-NS 
RFTURN 

4 DO S J=NL» NU , NS 

IF tX-QtJ,l»| 5,6,6 

5 CONTINUE 

6 NOUT = J 
RETURN 
EMD 


SPH l 
SRH 2 
SRH 3 
SPH 4 
SRH 5 
SRH 6 
SRH 7 
SRH 8 
SPH 9 
SRH 10 
SRH 11 
SRH 12 
SRH 13 
SRH 14 
SRH 15 
SRH 16 
SRH 17 
SRH 18 
SRH 19- 
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1 START . - Subroutine START computes initial values of boundary layer thick- 


a 

3 

k 

5 

6 

7 

8 
9 

10 

11 

12 

13 

li* 

15 

16 
IT 
18 

19 

20 
21 
22 
25 

2k 

25 


ness, displacement thickness, momentum thickness, skin-friction 
coefficient. 
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NASA- Langley Form 22 (Apr 69) 







on o n o no o o o 


SUB ROUT I NE START STR 

STR 

COMPUTE MOMENTUM THI CKNE SS , BOUND ARY LAYER TH ICKNES S f 02 SPLACEMENT STR 
THICKNESS STR 

AT START OF TRANSITION GIVEN SHOCK RADIUS STR 

STR 

COMMON XLSHf XLSHI ,THCR , JL I KL I M p TXLCL ( 450 I , TYL ( 450) ,TSI450J ,TP(45STR 
10UTXL<450l,TYLSf 450 UTSS <450) STR 

COMMON ENX,FPOPT t ALX,RAFp ALM lN t C0PT,STHCRfTl,T2#L,X^ U, PS l STR 

COMMON CMTOPT STR 


COMMON ALGN, AN, AN Z , AP , AVAR ,AW,AX ,C EB , C EBP ,CE M, CEMP , C F8NT ,CFB2,C FE« STR 
1R,CFUCFMT,CF2*CF2I,CN,C0EI,C0E2 ?C0E3 ,CTHCR , DEL, Dt LAM, DELS, DERR, ON STR 

2 ,OPVAR#OR0V AR , OR V AR , OS TH , OUV AP. , E , EK , El , FIT , EtYO * t MU, tMV AR , EMX , EN ,E STR 

3NGN,ENI, ERR, FC, FCCF,FCCFLG,FCF,FCFPR,FO,FDPR,FRR£,FRTH,G,GC,GX,H,HSTR 
4AW,HHAT,HP,HT,HVAR,HW,H2, ICE LL t I 1 1 I N, J J , i JL I M, JN , K ,K K* KM ,LL IM tNKW, STR 
5NN,N0,NXINT,PATM f PTVAR,PR,PRP,PRW,RBV4R,RET,RETH,RH3Ui vRHOW,RO*ROP$TR 
6» o 0V4R,R0W,PRI ,RRN, RRTVAR , RRX, RS ERR, R$ ISA V t R SLVAR # RX , SH EAR , SP » SVAR STR 
U$W,$X,TAW*TEMP,TEMP10»TEMPlUTEMP12,TEMPl4tTEMP2tTc MP3 , TEMP4, TEMP STR 
8 5,TEMP6, TEMP7,TEMPB ,TEMP9,TEP,T! VAR f TK,TPP, TRAN, T U1 , T N 0 TX ,W V AR , X I STR 
9N, XMTNp X2 REX,Z,ZmaX,?MIN STR 

REAL IN,JN,KN STR 

COMMON FI3UA1 3), ALPHE 13) , XI NT <991 , TWT < 99 > , 7 T ABL l 6 > , TAB IN (6 I, TAB JNSTR 
1 < 6 ) ,OXLT AB( 20),DELK( 2 I ,RSLG( 2 1, AL G ( 2 1 , ENG < 2 I ,A N2< U STR 

COMMON FRXTI20) ,FR XLGT 1 2 0 ) ,F C XT( 20) , FC XLGT 1 20 ) , Fk TBi 20 ) # FRLGT I 20 >, STR 
IFCTBC20) ,FCLGT(20),XW< IQ0UFIN6< 100 U RSLW <100 U SHEER 1 1 00 U XI 160) ,SSTR 
2! 160 UP t (160) ,XC< 160) ,RAf 160) ,W< 1601 ,RRT( 160),XMAXTB UOk ,DUOXT< 160 STR 

3 ) , OR OXT ( 160U0P0XT( 160 ) , OR BOXT <1 60 J , VAR( 2) ,OERi 2) ,CUVAR< 2) *WSAV< 16 STR 
40URRTSAVU60) , XS A VU60) ,RSL SAV< 160) , REXS AV ( 160 > • EN& AV U60 ) , CFS AV( STR 


5160), TKTAB{30) ,PRT AB< 2 10 U PATA8( 7 ), XK W U 60 U WKW l 160$ t>RSLKW( 160) STR 

COMMON /BLOCK/ PLTl (160) ,PLT2( 16 0 U PL T3 U60 U PL T 4 1 ibOUPLTSl 160l,PSTR 
IL T 6( 160 U PIT 7 ( 160 ) , PLTR< 1601 ,PLT9< 160) , PL T 10 4 160 ) , PL T U 4160 S , PL T 12 STR 
?( 160) ,*LT13< 160) ,PLT14(160), PLTl 5(160) ,NKWSAV STR 

EXTERNAL FOFX STR 

DIMENSION F2 ( 7) STR 

STR 

N(TP.AN) IS INPUT STR 

STR 

EN^FNI STR 

TEMp 3 -l*/EN STR 

SX=$VAR STR 

STR 


CALL VGAUSS^FDFX TO FIND 7 INTEGRALS WRT*(Y/OEU THROUGH BOUNDARY STR 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


i 


1^5 



ji n o n o n c*n o o o o o n o i— o o o r> r> r> 



STR 

*3 

C4LL VGAUSS (0,1. ,L , AN2 ,*0FX ,F2 , 7 ,NN> 

STR 

44 


STR 

45 

IS FLAT PLATE 

STR 

46 


STR 

47 

IF (FPOPT) 1,5,1 

STR 

40 


STR 

49 

DEL/LITRANI , SHEAR ARE INPUT 

STR 

50 

OEL ST /DEL 

STR 

51 


STR 

52 

0S00*AN2l 3) 

STR 

53 


STR 

54 

THETA/OEL 

STR 

55 


STR 

56 

thoo=anzi n 

STR 

57 

IF ( t CELL 1 3,2,3 

STR 

58 

DEL I =DEL 

STR 

59 

GO TO 4 

STR 

60 

°EL *OEL ! 

STR 

61 

continue 

STR 

62 


STR 

63 

ThFT A/L 

STR 

64 


STR 

65 

CUVAR(2 J=THOO*DEL 

STR 

66 


STR 

67 

oelst/l 

STR 

68 


STR 

69 

OEL S=DEL*OSOD 

STR 

TO 


STR 

71 

f.F/Z 

STR 

72 


STR 

73 

CFZ-SHEAP 

STR 

74 

GO TO 6 

STR 

75 


STR 

76 

RS/L FROM SUBROUTINE EDGE, $H EAR! L AMINAR I I $ INPUT 

STR 

77 


STR 

78 

OFL/L (E019I 

STR 

79 


STR 

80 

ADEL = T c MPl Z*AN2 ( 2 I 

STR 

81 

B0FL=TEMP12*AN2(6& 

STR 

82 

CDEL=-RSLVAR*R$LVAR 

STR 

83 

OELP=(-BDEL*SOPT( BDEL*BDEL-4.*ADEL*C0EL H/I AQEL*AOEl I 

STR 

84 

OEL M= I-BDEL-SQR T( BDEL*B0EL-4.*ADEL*C0EL I 1 /( A0EL+4UEL I 

SIR 

85 
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on 0*000 non non non 


DEL=0£LP 
THETA /L t E05 1 

GA=-0EL*0El*AN2f 5>-OEL*AN2( t > 
CUV2P=(-l.*$QPT< 1 .-TEMP14*GA U/TEMP9 
CUV2W»f- N-SQRTI l.-TEMP14*GA ) ) /TEMP9 
CUV AR (2 I -CUV2P 

OELST/L <EQ4> 

G=-0€l*AN2<3>-0El*DEL*AN2<4> 
OELS={-U*$ORTt l.-TE«P14*G I) /TEMP9 

CF/2 

CF2 ~ ( (RO/RRTVAft)/ (TEMP7/HTH*SHEAR 

OFLST/THETA 

05 TH-OE L S/C U V AR (?) 

CF 2 T = CF 2 
RETURN 


ENO 


STR 86 
STR 87 
STR 88 
STR 8 9 
STR 90 
STR 91 
STR 92 
STR 93 
STR 94 
STR 9 5 
STR 96 
STR 97 
STR 98 
STR 99 
STR 100 
STR 10 i 
STR 102 
STR 103 
STR 104 
STR 105 
STR 106 
STR 107 
STR 108 
STR 109 
STR L 10 
STR 111- 
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1 


2 VAHDCF .- Subroutine VAKDCF computes the VanDriest II skin-friction coeffi- 
5 cient using Reynolds number based on momentum thickness. 

4 
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NASA-Langley Form 22 (Apr 69) 




o o o o 


SUBROUTINE VANOCF 


COMPUTES HEATING RATES AND SKIN FRICTION BY 
VAN DRIEST II (RETHETA) METHOD 


COMMON XLSH* XLSHl.THCR.JL JM, KL IM , TXLCL ( 450) , TYLl 450) „TS (450) ,TP (45 VAN 
10) .TXU4 53) , TYIS( 450) »TSS(450) VAN 

COMMON ENX.FPOPT, ALX, RAF, ALMIN. COPT, STHCR.T1.T2.L.XV0.PS1 VAN 

COMMON CMTOPT VAN 

COMMON ALGN, AN, ANZ, AP, AVAPfAW, AX * CEB, CEBP . CEM.CEMP ,C FBMT »CFB2 tCFEP V AN 
l R. CF T tCFMT .CF2.CF? I.CN.COEl, COE2.COE3 .CTHCR , DEL . DELA M .DEL S.DERR t ON VAN 
2.0PVAR.DR8VAR .DRV AR ,DSTH ,OUV AR ,E , EK, EL ,ELT , FLVO, EMU, EMVAR, E*X, EN.EVAN 
3NGN,ENI,ERR,FC,FCCF.FCCFLG,FCF,FCFPR*FD,FOPR,FRRE,FRTH 0 G,GC,GX,H,HVAN 
4 AW,HHAT,HP,HT,HVAP iHW,H2 , I CELL. I I .IN. J J . J JL I M, ON. K ,K K» KN ,LL IM ,NKW, V AN 
5NN.N0.NX I NT, PATM, P I V AR.PR . PR P. PR W , RBVAR ,R ET, R ETH. RHQU1 9 KH0W.R0.R0PVAN 
6 * RO VAR .ROW *RR! .PRN.RRTVAR ,RR X , RS ERR »R S IS A V ,RSLV AR . KK » SHEAR . SP * S VAR VAN 
7.SW.SX, T AW. TEMP.TEMPIO. TEMPI 1 . TE MP 1 2 , TEMP 14, TEMP2.TEMP0.TEMP4.TFMP VAN 
55,TFMP6,TEMP7,TEMP3,TEMP9 .TEP.TI VAR ,TK .TPP , TRAN, TT 11 .TW.TX.WVAR , XI VAN 
9N.XMIN. X2REX.Z.ZMAX.ZM1N VAN 

REAL IN.JN.KN VAN 

COMMON F <31, A(3),ALPHE(3),XtNT(99) ,TWT< 99) , Z TABU 6) , TAB I N < 6 ) , T A8 JNVAN 
1 (6) ,DXLTAB( 20) , OELK ( 2) ,RSLG( 2 ) ,ALG( 2) ,ENG( 2) ,AN2( 7) VAN 

COMMON FRXT(20),FRXLGT(20),FCXT( 20 ) ,FC XLGT ( 20) , FRT8< 20) » FRLGT t 20 ), VAN 
lFCTBl 20) ,FCLGT( 20) .XWUOO ) ,F IN6( 100# ,RSLW I 100) .SHEER < 100) ♦ XI 160) ,SVAN 
2( 160I.PI ( 160 ) * XC( 160). RBI 160 ) , Wl 160) »RRT( 160 ) , XHAXTB ( 20 ) .DUO XT ( 160 VAN 
3 ) » OP OXT < 160) , OPDXT ( 160 I , ORBOXT ( 1 60 ) , V AR ( 2 I , DE«( 2) ,CU VAR < 2) »WSAV( 16 VAN 
40) .RRTSAVl 160) ,XSAV< 160) .RSLSAVt 160) .REXSAVI 160) . ENS AV 4 160 ) . CFS AVI V AN 
5160), TK TAB (30) .PPTAB(210) , PAT AB( 7) .XKWI 160),WKW( 1606 ,RSLKW< 160) VAN 
COMMON ZBLOCK/ PLT1I160) .PLT2I 160 ) , PL T3 ( 160 > .PL T4< 1606 » PLT5< 160I.PVAN 
1 LT6( 1 60 I * PLT7 ( 160 l ,PLTB< 160) ,PLT9< 1601 , PLT 10( 1601 . PL T 1 U 160) , PLT 12VAN 
2( 160),PLT13( 160) , PLT141 160) ,PLT15( 160) .NKWSAV VAN 

TERM=. 176*EMVAR*EMVAR VAN 

EMEW = SORTI TI VAP/TW)*( 1,f220.*10.**I-9./TW)/Th)/ ( l o ^ .0 , f JO.** t-9 ./ V AN 
1 T I V AR )/T IV AR ) VAN 

RBAR=RETH*EMFW VAN 

RBRLG=AL0G10(RBAR ) VAN 

CF I 2= .6/ 1 1 17.08*R8RLG«-25. 11) 4RBRLG«-6o012} VAN 

AV0S0=TERM/C0E1 VAN 

BVO = ( 1. + TERM-C0E1 )/COEl VAN 

BVDSO=BVO*BVO VAN 

ALVO=( AVDSQ*AVOSO-BVO)/SQRT14.*AVDSO*BVOS01 VAN 

BEVO=BVDZSORT (4.* AVDS9+BVDS0 I VAN 


i&7 



non non 


VAN *3 

E0(20> VAN 44 

VAN 45 

CF2F»=CFI2*< ( ASIN( ALVOUASlNf 8EV0 M **2 1 /TERM VAN 46 

VAN 47 

E0123) VAN 48 

VAN 49 

1 CF2=CF2FP*CFMT VAN 50 

RETURN VAN 51 

C VAN 52 

VAN 53- 
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1 WRTS . - Subroutine WRTS computes heat transfer coefficient and heating 


2 

5 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

1 6 

17 

18 

19 

20 
21 
22 

23 

24 

25 


rates based on each skin-friction theory and prints output. 
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noon 


SUBROUTINE WRTS 1 C FX , R AF X , CF MTX ) 

COMPUTES HEAT TRANSFER COEFFICIENT AND HE 
RATES BASED ON FACH SKIN FRICTION THEORY 

COMMON XL SH , XL SHI ,THCR, JLIM, KU M , TXLCLI 450 >, TYU 4501 
1 0 I ,TXU450), T VLSI 450 UTSS (450) 

COMMON FNXfFPORTfALXfRAF , ALM I N ,C OPT , STHCR , T 1 , T2 , L»XV 
COMMON CMTOPT 

COMMON ALGN , AN, AN l ♦ ftP , AVAR f AW * AX ,CEB f CEBP , CEM ,CEMP , C 
l*«CFI f CFHT,CF2,CF2UCN,C0EW CO E2 , C0E3 ,CTHCR , DEL, OELA 
2*ODVAR f 0RBVAP f OR V AR ,OSTH , OUV AR , E , EK * EL * ELT , FLVO* EMU# 
3NGNtENl tERRtFC,FCCF, FCCFLG,FCF,FCFPR t FO.FOPR,FRk£,FR 
44 W, HHAT, HP,H T t HVAP ,HW, HZ, I CELL, I I,IN,JJ,JJLIM,JN,K,K 
5NNtN0,NXlNT,PATM, PI VAR, PR , PR P , PR W , RRV AR, RET* R £TH, RHQ 
6#R0VAR,PCWtRRI , RPN, RRTVAR ,RR X , RS ERR , R S IS A V , RS LV AR , RX 
7 « SW ♦ S X, TAW»TFMP ? TEMP10 t TEMPl l t TEMPI2»TEMP 14, rcMP2,Te 
B5»TEMP6tTEMP7tTFMP8 tTEMP9 f TER, T| VAR t TK r TPPt TRAN f T TIL 
9N f XMIN f X2PFXt2 f ZMAXt?MIN 
PFAL IN, JN »K N 

COMMON F(3),A(3), AL PHE ( 3 ), XI NT < 99 ), TWT< 99 1 ♦ZTABLI 6) , 
U6S ,0XLTAB<20) , DFLK ( Z ) , RSLG ( 2 I , AL G ( 2 I » ENGI 2 > » AN2( 71 
COMMON F RXT ( 20 ) , F RXLGT ( 2 0 I *«= CXTt 201 « FCXLGT i 2G),FKTtH 
IFCTB120) ,FCLGT ( 20 ) ,XW(100) ,FIN6< 10Q),RSLW( 10J), SHEER 
21 160>,PIt 160I,XC< 160) ,RB< 160) ,W( 160) ,RPT( 1 601 , XMAXT6 
3 ) ♦OROXT ( 160) fOPDXT ( 160) tORBDXT (160) * V A R { 2 I ,0£R( 2 I ,CU 
40 ) pRRTSAVI 160) ,XSAVl 160 ) , R $!_ SAV1 160) ,REXSAV( 160) *ENS 

5 160KTKT AB(30),PRTAB(210) ,PATAB( 7 ) , XK Wf 16 0 ) , WKW i 160) 

6 AS 

COMMON XXI 

COMMON ACFTI22) ,TRFXT122I , AC FLGT I 2 2 > , TRL GT ( 22 ) . REXCF 
COMMON HBCFtOXCEt HHCF 

COMMON /BLK/ CVi,CV2,CV3tCV4,CV5,CV6,CV7,CV8,CV9,CVL 
l 1 3 1 UN IN , UN 10 
F X X =CFX*R AF X 
HB= FXX*WVAR*RRTV AR 
QX-HR*( HAW— HW! /2*5036E4 
HH-HR/HO 
HBCF-H8/CFMTX 
QXCF=OX/CFMTX 

hhcf^hh/cfmtx 

IF (UNIO—i* ) 1 , 1 1 2 


WPT 

WRT 

AXING WRT 

WRT 
WRT 

,TS(450),TP( 45 WRT 
WRT 

0, PS I WRT 

WRT 

FBMT i CFB2 t CFERWRT 
M* OfcLSt DERR, ON WRT 
EM V AR, EM X , EN , E WRT 
TH,G,GC,GX,H,HWRT 
K.KNfLLIMtNKW. WRT 
UI tRHOWt ROf ROP WRT 
, SHEAR, SP , $ VAR. WRT 
MP3 , TFMP4 , TFMP WRT 
,TWpTX,WVAR,XIWRT 
WRT 
WRT 

TABIN16),T AB JNWRT 
WR T 

20> , FRtGTT 20 ) , WRT 
UJUItXf 160 ) ,S WRT 
4201 , DUDXT I 160WRT 
VAR { 2 1 , WSA VI 16 WRT 
AVI 160 I ♦ CFS AV( WRT 
,RSLKWI 160) * IGWRT 
WRT 
WRT 

<,HQ,XO WRT 

WRT 

OoCVli,CVl2,CVWRT 

WRT 

WRT 

WRT 

WRT 

WRT 

WRT 

WPT 

WRT 

WRT 


1 

2 

3 

4 

5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
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27 

28 
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31 

32 

33 
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35 

36 

37 

38 

39 
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41 

42 
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^ n o o ww 


1 0 81=HB*CV5 WRT 43 

0R2=0X*CV12 WRT 44 

085*HBCF*CV5 WRT 45 

086=QXCF*CV12 WRT 46 

WRJTF t 6 »4> PAFX,CFMTX f CFX,EXX,081 ,082 ,HH , XX 1 »Utt5,08 6 ► HHCF WRT 47 

GO TO 3 WRT 48 

WRITE (6,4) RAFX*CFMTX»CFX,EXX,HB,QX* HHt XX l »HBCF»QX£FoHHCF WRT 49 

RETURN WRT 50 

WRT 51 
WRT 52 
WRT 53 

FORMAT T12E11.3I WRT 54 

END WRT 55- 
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24 Machine Requirements for Turbulent Boundary Layer Program D3340 

25 
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1 


USAGE 


The turbulent boundary layer program D3340 is run on the Control 

4 

Data 6000 series computer under the SCOPE 3.0 operating system. Minimum 

5 

machine requirements are 77000 octal locations of core storage for a 

6 

minimum of 160 body points . 

7 

8 Computer Calculation Time 

9 The time required for a given variable-entropy calculation for turbulent 
10 flow depends on (l) the number of iterative calculations from the start of 

n transition to the end of the body; (2) the number of points on the body per 

12 iteration; (3) the number of points in the integration from the wall to the 

13 edge of the boundary layer; and (it) the error criterion for various iterative 

14 solutions used in the calculation. It usually took four iterations to find 

15 a reasonable engineering solution which had a change in velocity of less than 

Au 

16 1 percent ( — — < 0.01) from one iteration to the next. For the flight cal- 

e 

17 culation, the Runge-Kutta integration was limited to maximum step size of 
Ax 

18 — = 16. 0; however, if calculation time on the computer is extremely critical, 
r 

n 

19 the step size could possibly be increased with little effect on the final 

20 solution. The number of points required in the Gaussian quadrature for the 

21 calculation of 6/r and <S*/r from equations (5) and (it), respectively, 

n n 

22 was determined from a comparison of the values of <5/ r n and 6*/r n 

23 calculated for various numbers of points used in the quadrature. It was 

24 determined that a minimum number of 20 points could be used in the integration 

25 
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2 

3 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


through the boundary layer. The momentum integral equation (eq. (3)) 
is solved by a variable-step-size fifth-order Runge-Kutta numerical scheme 
which uses a maximum relative error criterion of 0.001 for the value of 0 
for one step of integration. The maximum percent error allowed in the 
iterative solution for the Spalding-Chi (ref. 7) C f / 2 was 0.4. When an 
iterative procedure had to be used in the determination of thermodynamic 
properties from the real-gas subroutine (see ref. 27), the maximum allowable 
relative error was 0 . 001 . For real-gas turbulent-boundary-layer calcula- 
tions made at altitudes from 18.29 km to 25*91 km (60 000 ft to 85 000 ft) 
at M ~ 20, the time per body station was approximately 2.6 seconds on the 
Control Data 6600 computer system based on a single iteration from the start 
of transition to the end of the body and using the relative error criteria. 

Input Description 

This section describes input procedures for the turbulent boundary 
layer program. The preparation of input tapes and cards is discussed, 
including a description of various options available in the program. This 
is followed by sample input data for the test case. 

Preparation of Input Tapes 

TAPE 10 - The flow properties p e , p & , T g , S^, h g and a g for a 
real gas in thermodynamic equilibrium are calculated by the computer 
subroutine (EGAS) described by Lomax and Inouye in reference 27. The 
subroutine RGAS requires use of TAPE10 containing information for nitrogen 
on file 1 (IGAS = l) and information for air on file 2 (IGAS « 2). TAPE 10 
was developed by NASA-Ames Research Center and contains information 
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applicable to real equilibrium air (T<27000°R). The information for thermally 
perfect gas mixtures was taken from NBS Circular 56 k. Subroutines ROLL and 
SERCH are used by subroutine RGAS to locate the information on TAPE 10. 

If CARD = 0, tapes 1 6 , 15, 22 are used for input of the inviscid flow 
field. If CARD 4- 0, as in the case of cone flow, these tapes are not used and 
input is taken from NAMELIST $N2 cards. 

TAPE 15, 16, 22 - Prior to the turbulent boundary layer calculation the 

inviscid flow field is determined by the Lomax and Inouye blunt body and method 

of characteristics programs. {See refs. 27 and 34.) The inviscid solution gives 

the first-order stagnation entropy flow property distribution along the body 

which is used as the initial conditions at the edge of the boundary layer. In 

addition, the shock shape r /r and entropy distribution along the shock are 

s n. 

found from the inviscid solution. Subroutine CRRD reads the body and shock 
points of the inviscid flow field from tapes 15, l6, and 22. 

TAPE 16 contains the body and shock points from the Lomax and Inouye 
blunt body program. 

TAPES 15, 22 contain the body and shock points from the Lomax and Inouye 
method of characteristics program. TAPE 15 may be used for both body and shock 
points (XLSH = XLSHl) or TAPE 15 may be used for the body points and TAPE 22 
for the shock points. 

TAPES 1 6 , 15, 22 contain x/r n centerline, y/r^, stream velocity (ft/sec), 
stream angle (rad), Mach number, entropy (ft 2 /sec 2 °R), pressure (lbf/ft 2 ), 
enthalpy (ft 2 /sec 2 ), density ( slug/ft ^ ) , total pressure, written in (5E16.9) 
format with body points on odd numbered records and. shock points on even 
numbered records. A maximum of 450 body points and 450 nhock points may 
be read. 
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Diagram of Linkage for Input Programs 


Real Gas Theiroodynamic Properties 
File 1 = Nitrogen 
File 2 = Air 


on Ames RGAS TAPE 10 



Inviscid Flow Field 


Ames Lomax and Inouye Blunt Body Program 
(Ref. 27, 3*0 writes 
Body and Shock Points on TAPE l6 



1 Inviscid Flow Field 

| Ames Lomax and Inouye Method of Characteristics Program 

(Ref. 27, 3*0 writes 

Body and Shock Points on TAPE 13 and/or TAPE 22 


Laminar Boundary Layer D27*+Q 
(Ref. 35) writes 

No. of x/r n , x/r n , e/r n , r g /r n > T 
on Punched Cards 


^ ur -| ;}ulen .|- Boundary Layer “ ~ “ ~~ ' 

Program D33*+0 reads Blunt Body Input TAPE 1 6 , 

Method of Characteristics Input Body and Shock Points TAPE 15 
or Body from TAPE 15 and Shock from TAPE 22. 

Reads Punched Cards from Laminar Program, 
i Writes Plotting Information in Labeled Common BLOCK . 


Plotting Program 
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1 


Preparation of NAMELIST N1 Input Cards 


The FORTRAN NAMELIST capability is used for data input with $N1 as 

^ the NAMELIST name. The maximum allowable dimension appears following the 

k 

variable name. Units are SI or US Customary depending on the option 


5 

chosen for 

UNIN, 

6 

$N1 


7 

XMIN 

x/r^ at beginning of transition 

8 

XVO 

x/r^ at virtual origin 

9 

X2REX 

x/r at end of transition 
n 

10 

ELT 

X2REX + .01 for print at end of transition 

ll 

XMHL 

x/r at maximum heating 
n 

12 

XLSH 

maximum x/r on shock (= 0 if flat plate) from tape 15 
n 

13 


if body points from this M0C case 

14 

XLSH1 

maximum x/r on shock (= 0 if flat plate) from tape 22 
n 

15 


if shock points from this M0C case XLSH1 = XLSH if 

16 


body and shock both from tape 15 


IT 

18 

19 

20 
21 
22 

23 

24 

25 


DXLTAB( 20) table of increments of x/r^ for edge conditions 

XMAXTB( 20) table of x/r values where increments change, XMAXTB(20) 

n 


n 


r nose radius (m) (inch) 
n 


is end of body. DXLTAB and XMAXTB should 'be chosen so 
that no. of x/r^ points on the body will not exceed 160 
EL 

RNOT r nose radius (m) (inch) 

n 

XINT(99) values of X for wall temperature table (m) (inch) 

TWT(99) values of wall temperature ( U K) (°R) 

NXINT no. of values in wall temperature table 
THC cone half angle (= 0 if flat plate) (rad) (deg) 
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DEL 

initial 6 /r boundary layer thickness from laminar 
n 



flat plate input (= 0 if cone) 

1 

R0 

density parameter from laminar program ( = 0 if flat 

2 


plate) (kg/nf'’) (lbm/ft~) 

3 

RH0I 

density freestream (kg/nfO (slug/ ft' 5 ) 

4 

RH0T2 

*2 X 

density stagnation point (kg/nr) (slug/fu ) 

5 

TJI 

velocity freestream (m/sec) (ft/sec) 

6 

RH0UI 

density * velocity freestream (kg/m sec) (Tbm/ft sec) 

7 

PT2 

2 2 

pressure stagnation point (N/m ) (lbf/ft ) 

8 

PINF 

2 2 

pressure frees treajn (N/m ) (lbf/ft ) 

9 

HT 

total enthalpy (rrT/sec ) (ft^/sec ) 

10 

ST 

total entropy (m 2 /sec^ “K) (ft'/sec^R) 

11 

TT11 

total temperature ( 4 K) ( °R) 

12 

TW0 

wall temperature stagnation point (°K) ( °R) 

13 

SHEAR 

shear stress (if SHEAR = 0, interpolate from laminar 

14 


cards) 

15 

A(3) 

A coefficients for enthalpy, Eq. (12), A(l) = A(3) = 0 

16 

F(3) 

B coefficients for enthalpy, Eq. ( 12 ), F(3) = 1 

IT 

ALPHE ( 3 ) 

a_ coefficients for enthalpy, Eq, (12), a(l) = a(2) = 1 

n 

18 



19 


A(2), F(l), F(2), ALPHE (3) are calculated in program 

20 

ALMIN 

a(3) at beginning of transition, Eq. (12) 

21 

ALX 

a(3) at end of transition, Eq. (12) 

22 

ENI 

N at the beginning of transition, Eq. ( 26 ) 

23 

EM 

N at the end of transition, Eq. (26) 

24 

PS I 

\|r factor in C^/2, Eq. ( 25 ) 

25 

TRAN 

= 0 , no transition region 


4 0, transition region 
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1 

CARD 

2 


5 

FP0PT 

b 


5 

UNIN 

6 


7 

UNI0 

8 


9 

IGAS 

10 


11 

PRINT 

12 

ERR 

15 

UERR 

lb 

, CFERR 

15 

L 

16 

NN 

17 

NT 

18 

Cl 

19 

SPEC 

20 

CIMAX 

21 

ELE1 

22 


23 

ELE2 

2b 


25 

PR 


= 0, read input from TAPE 15, 16, 22 | 

/ omit if 

/ 0, read NAMELIST N2 ) flat plate 

= 0, cone 
/ 0, flat plate 

< 1., input in SI units 

> 1., input in US customary units 

< 1., output in SI units 

> 1 . j output in US customary units 

= 1, nitrogen file from RGAS TAPE 10 
= 2, air file from RGAS TAPE 10 
print frequency 

relative error in T or H when iterating in RGAS 

relative error in velocity on successive iterations 

relative error in Spaldin- -Chi skin friction 

= 5, no. of intervals in Gaussian integration 

= b, no. of points per interval for Gaussian integration 

= 1, no. of values in ELT block for Runge Kutta 

initial interval of x / r n for Runge Kutta 

= 0, prints every interval in Runge Kutta 

maximum interval of x/r n for Runge Kutta 

relative error in 9/r 

' n 

if error greater, Runge Kutta halves computing interval 

relative zero in 0/r 

' n 

will not apply relative error if 0,/r below this 
= .72, Prandtl no. used in T^ 
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1 

GC 

= 32.174, dimensional gravitational constant to convert from 

2 


slug/ft^ to lbm/ft^ 

3 

ZMIU 

= 31.623, Eq. (8), sets N = 2 

4 

ZMAX 

= 681.33, Eq. (8), sets N = 10 

5 

AN 

AN 

= .33333333, Eq. (8), R e0 

6 

7 

CN 

= -5, Eq- (8), (T„/Tj CN 

8 

DN 

- .25, Eq. (8), M e rjW 

9 

KN 

= .33333333, Eq. (8), (x^/^/e/rJ™ 

10 

FRXT(20) 

F from Spalding-Chi table 7 

11 

FCXT(20) 

F C from Spalding-Chi table 7 

c i 

12 

FRTB (20) 

R^ 0 R 00 from Spalding-Chi table 7 

13 

FCTB (20 ) 

F C„ from Spalding-Chi table 7 

C X 

14 

TKTAB(30) 

temperature °K from Hansen table VI 

15 

patab(t) 

pressure from Hansen table VI (N/m ) (ATM) 

16 

PRTAB { 210 ) 

Prandtl no. from Hansen table VI, starts with Prandtl 

IT 


no.'s for smallest pressure and Increasing temperatures 

18 


up to largest pressure and increasing temperatures. 

19 

ACFT(22) 

C f table to use with Van Driest shin friction 

20 

TREXT(22) 

transformed R table to use with Van Driest shin 

ex 

21 


friction 

22 

TP 

p 2 

pressure flat plate = PINF (N/m ) (Ibf/ft ) 

23 


( = 0 if cone) 

24 

TS 

entropy flat plate = ST (m~/sec^ °K) (ft^/sec^ a R) 

25 


( = 0 if cone) 


$ 
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Input from the Laminar Program 

The results of the inviscid solution are first used to make a laminar 

boundary— layer calculation, with variable entropy, over the entire length 

of the body. (See ref. 35-) The initial use of the edge conditions from 

the variable entropy solution for laminar flow enables the turbulent 

calculation to be completed in less time than the initial use of the 

stagnation entropy edge conditions directly from the inviscid solution. 

The laminar boundary layer program B2 r jk0 punches on cards tables of 

rjr and dimensionless shear as functions of x/r which are read as 
s n n 

input to the turbulent boundary layer program. 

After the NAMELIST N1 cards are read, the turbulent program next 
reads the punched cards from the laminar program. These punched cards are 
of the following form: 

card type 1 FORMAT (15 ) no. of x /r fi to be read, not 

exceeding 100 

card type 2 FORMAT(5E15 *8) x / r n va l ues ; 5 par card 

card type 3 FORMAT (5E15 *8) ®/ r n values > 5 P er card 

Card type 3 are read but not used in the present version of the 
turbulent program. 

card type 4 FORMAT (5E15 .8) r /r values, 5 per card 

s n 

card type 5 F0RMAT(5E15 .8) dimensionless shear, 5 per card 

Card type 5 are not read if SHEAR ^ 0 in NAMELIST N1 . 

l6l 
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Preparation of NAMELIST N2 Input Cards 


2 


3 

k 

5 

6 

7 

8 
9 

10 

n 

12 

13 

Ik 

15 

16 

17 

18 

19 

20 
21 
22 


Following the input from the laminar program, data input with $N2 as 
the NAMELIST name may be read if CARD / 0 in NAMELIST N1 and inviscid 
flow field tapes are omitted. 


-ea- 

ro 




DELTX 

increment 

of x/r 

n 


TP 

pressure 

(N/m 2 ) 

(lbf/ft 2 ) 

TS 

entropy 

/ 2/ 2 , 
(m /sec e 

■K) (ft 2 /sec 2 °R) 

THSD 

shock angle (rad) 

(deg) 


$ 

Input for Sample Calculation 

The sample case chosen to illustrate the use of the program is the 
performance of turbulent boundary layer flight calculations at an altitude 
of 60,000 ft. and flight conditions of approximately 19,000 ft. /sec. for 
a 13 ft. long, 5 half angle cone with a nose radius of .4 inch. 

The corresponding input data cards are listed here and sample pages 
of the output data are shown in the ensuing section to illustrate the 
printout formats . The input and output for the sample case are in SI units . 
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s Input (S I Units) 

XMIN=15**XVO=10*, X2RFX=22->. *ELT=223*0l *XMHL=2l 3* * XL5H=283. *XLSHl -283. * 

DXLT AR= . 1 , . I **2*.2*.5*.5*i**l • *5 , *5. • ! 0 • « 1 0 . ♦ 8*25. * 

XM AXTB= 1 5 * * 16. * 16. *20. * 2 0 # * 35. *35. *65* *65. ♦ I 18. * 1 1 5 • *215. *0*390.* 

XI NT =.36576* .747014* .9 75868* 1 .280922* 1 .4 65072, 1 .81 483 ,2 o I 19884*2*475992* 
2.729992* 7.035 046 • 3 ..34 0608*3.620008* 

TWT =635. 55556 *562 *77778, 568. 88889*577. 77 778*600. 55556 *698. 88889 *748. 33333* 
788.33333,80 2.22222 *81 9. 4*444 , 838.88889*027.77778* 

UNtN-1 . *l/M!0 = ! * * 

FL= 1 . 01 6E-2 * RHQUl =710.397^045 *90 = 2.755175636* PHO I - 1 . 225468 1 Q6E- 1 ♦ 

U! = •579674736E4.HTM *701 24 0 468F7 * ST= I 1 .25026085F3* THC = 8 « 7?664626E-2 * 

RH0T2= 1 .4 146 1 2279 *RnOT = 1 #M6E-2iP»T2 = 3* 944 32 7^7456 * P J NF= . 736972931 1 E4 * 

TWO=. ! 666^66667^4 *tti 1 =.0-73555, 

NX I NT s 1 2 * nEL = 0 * 

SHEAR =6 .76 1 36^-6* 

A=0*0*0*F-0*0* 1 . * ALPHE= 1 . , 1 • *0, 

ALMIN= 1 .26,ALX=t • *FNl = l .54* ENX=7. *PS 1=2.* 

TRAN=1 • ,CAP0 = 0 *FPOPT = 0* t QAS = 2 , PP I NT = l # , 

FRR= .00 1 *uFRR= .00 ! , CFERR= . 004 * L = ^ * NN = 4 * NT = 1 « Cl = .0 1 25* SPEC = 0 * C I V>Ax = 1 6 . * 

ELE 1 = • 00 l ,ELE2= . 00 1 * PR = • 7? • GC = 72 * 1 74 * ZM I N = 3 1 • 62 3 * ZM AX =6 8 1 . 33 * AN= . 33333333 * 

CN- .5 * DN= .25 *KN'= . 33 33 37 33 * 

FRXT = 5 . 826E 3,6.BB7p3*3.3 53E3 ♦ 1 .O06F4, 1.26154,1 .592E4 * 2.078E4 , 

2. 796E4* 3.90 1 54*5.6 70^4 *8. 697E4 * 1 .4 i 7E5 * 2 . 4 92E 5 * 4 .628F^ t 1 .062E6 * 
P.770F6*9.34OF6*4.65| E7* 4,6 ICES* 5.75BE! 0* 

FCXT =.0105 *.01 *.0005 *.009* .0085 * .008 * . 0075 • .00 7 * *0065 o . 006 ♦ .0 055* 

. 0 05 *.0045* .004* .0035* .003* , 0025 *.002*.C015*.001 * 

FRTB = 50.46*55*87*62.^5*70.91 *92*49,95.62*1 14. 4*1 40*4*1 77. 6*2 33 *0.3 19. 4* 

4 62.7*716.0*1 208*22 6^*50 30* t . 306E4 , 5 • 4 25E4 * 3 . 955E5 * 2 . 878E 7 * 

FCTB^.O 1 732 * . O 1 624 * . O 1 5 1 6 * • 0 1 409 *. 01304 *. 012016*. 0 1 1 01 4 , • 0 10 042 * .0091 75, 
. 008?05 * .007345 * .006^26 , • 005747* *005006 * ♦ 004299 , * 00262 1 * . 002 967 , *002333* 
.001716* .001 l 17* 

TKTAB = 500* 1 000* 1 500 * 2000 * 3500 * 3000 * 3500 , 4 000 * 4 500 * 5000 * 5500 . 6000 * 650 0 * 

700 0*7500^80 00 *8500 *9000, 05 00* 10000* 1 050 0, 11000*1 1 500 g 1 2000 ^ X 2500 * t 3000 ♦ 

1 3500 ♦14000.14500*15000* 

PAT AB= 1 .0 1 325E 1 * 1 • 0 I 325E2 *1.01 326E3* 1 .01 325F4 ♦ 1 . 01 328E5 »UU 3?5E6« t * 01 325E7 * 
PP T AB *= • 7 3 R , .756* .767* .614 , .771 * o?N« *606* o 58 7* .764, o ^^3 ^ oG?l g a 3 84 * 0 3 4 8 * 

.337* . 330 , . 31 6, • 2 76 ♦ • 1 9Q7 * • 1 t 4 0 , .0 577 * • 0 3 I 2 * • 0 20 7 , , 0 1 57 * . C 1 32 * • 0 1 20* 

• 0115*. 01 09 *.0109*. 0109*. nl 09*. 736* .706 , .767* .668 , #654 * . 745* .658* .580 * 

• 61 1 * .799* . 989* .891 , .383 , .346* .334 , .328, .321 *.307*. 273*. 210** 1427* .0 870* 

.0503 ♦ .03? 1 ,.0213* .0166,.Ol42*.0l30*.01 19*.0114* .738* « 756* .767 * .724 * 

.61 1 * . 74 0* . 737* .619, .578 * ,624* .785* .969* .955**830* .350 * .332* .324 * .320* 

• 316* .313, • 284 * o 246 * . 194 5*. 14 09* .0949, .0634, * C4 1 6 , ®0293* .0202* .01 19* 

. 7 38 * .756**767* .766* *645* .636* .744* .789* .61 0* ®5B1 © « 6 1 7 * n7 36 v . 9 06 * . 986 * 

.969* .648 , . 335* .32 1 , ® 31 4 * .3 1 O * . 30 9 * .303* .293* .276, .250 *.215**1 733 * 
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• 1 378 « . O903i .0719* * 73Q • • 7^6 • • 767, • 773 * • 696 t • 62 7 , * 660 « * 762 i « 762 ♦•611* 
.583, .602 , • 673 ♦ • 796 , .92 7 * .983* ,943* .007, • 330* .300* .301 . • 296* .295**293* 
*290* .284**276* .263. .237* .220* .738* .756* *767 * .773* • 75 1 * * 600 * .631 * * 662 * 

« 74 3 , 9 767 , • 620 * . 592 * . 592 * .620*. 688 *. 780* • 89 1 * • 96 1 * • 966 ♦ .872* .310** 294 « 

• 284 * . 277 , , 272 **2 72* *2 70* ,269* .265 • « 263 * • 738 * « 756 * ♦ 767 * • 77 3 * , 762 * • 74 0 * 
*678 * .640 * * 654 * *702* *748* , 763 **610**593*» 595 * * 620 * * 666 ♦ *730* *806* *886* 

, 937 * • 955 * #94 7**908* .778 * ,2 75 **251 t*245**241 * * 7.78* 

AC5T = *02* * 0 I 75 **015* ,0125* .01 **009**008**r07* .006 * • 0055* • 0 05* *0045* 
* 004 * *0 035* *003* ,002 c * *00225 * .002 ♦*0019**00 18**0017*. 001 6* 

IRE XT = 2 #571 40 + 3 * 3 *85750 + 3*6*3075+3* 1 . 1 604 0 +4 * 2 • 630 30 + 4 * 3 . 9506E+ 4 , 
6.34 68E + 4* 1.11 525 + 5 • P *2 1 85E + 5 * 3 ♦ 3324 E+5 * 5 #28965+5*9*001 4 5+5* 

1 .676tE + 6*3*51 95E+6 *R. 73320 + 6*2. 767 3E + 7* 5* 6185 F + 7* 1 ,28895 +8* 

1 .37^40 + 8*2*81 010 + 0*4 *3540 + 8*7.01260+6* 

TP = ^' *T0*O. 


5 

52 

0. 

5. 0000000^5-01 

1 .ooOOOoooe+oo 

1 * 5 a O 000005 + 00 

?*nnnonnno[=; + oo 

T.nncoonorr+oo 

2 ,nr^ooOOOn0 + O ! 
6 *onr>or>nnn 0 +O 1 
1 *onnoooon5+02 

2,385noOOnE+02 
3.51 4OOOOn0+O2 
7*740741 87E— 04 
6 • 97554 929E — 04 
1 .263375070-03 
3*800627670-03 
5*491005240-03 
1.21 445645E-02 
1 , 9474 4 3 37E — 02 
2*468969875-07 
2*391 3559 A 5— 07 
1 .773691 4P0-O2 
1 .550 i 3646F-0P 

n • 

1 • 1 O720987E-O1 
1 .055009190-0! 
2.075377640-01 
2.11 0408090-01 
2*571 394975—0 1 


1 .OOOOOOOOf-OI 
6 . 00000000^-01 
i • i ooon^oor+oo 
1 .60000000cr + oc 

3.000C0O^0f+00 
e.OOOOOOOQr+OO 
3.00000000f+01 
6 . 78000000F+0 1 
1 « 2 05 00 00 Of + 02 
2 • 636000COF+C2 
4.00000C0OF+07 
5.651 391 3 1 f -04 
7*59994 1 35F-04 
1 .49549067^-03 
4*596506580-03 
7.3101 1 937F-03 
1 .31 40 22 3 ! f- 02 
2.3017871 7r-02 
2.41 8010840-02 
2*30470534^-02 
1 . 70865639^-02 
1 .44 790776F— 02 
2.4428l545«=*-02 
1 #29227740^-01 
1.91 767898^-01 
2,06965292^-0 1 
2, 21 33161 Of-01 
2. 66479662^-0 1 


2 * 000000000-01 

7.000000000-01 

i .2000090nE + 00 
1 *700000000+00 
4.00C0nnOOF+00 

9. oooooonoE+co 

3*730000900+01 
7*000003005+01 
1 , 3870000 O0+ 02 
2*937000 00E+ n 2 

6.1 02175780-04 
8.37431 6790-04 
1 *813697570-03 
4 .849634090-03 
8*7 35637 l 2E -0 3 
1 *406464590-02 
2*439473755—0? 
2.42371 61 3E-0? 
2. 207296270-02 
l .6468 1 0560-0? 

4. 76320812E-02 
1 * 46239728E-01 
1 .9940 1 1 080-01 
2.051670900-01 
2*33851 8330-01 
2.74888141 0-01 


3 . 0000 0000 E-0 1 
0 . 000 0 0000E — 0 1 
1 . 300000000+00 
1 .000000000+00 
5 #^ooooono0+oc 

l * ^00000000 + 01 
4 * 0000O000F + 01 
8 . 00000000^+01 
1 .732000000+02 
3.00000000E+02 

6 . 1 763706^0-04 
9* 421 83903E— 04 
2 .252O0282E-O3 
5.052586370-03 
9*91 1 402590- 03 
1 ©438821 990- 03 
2.46461 261 0-02 
2 . 4295 °2 3 70— 03 
2. 02254653E-02 
1 . 63B62050E-OP 

7.04 1 9867 3 E — 03 
i .613421620-01 
2.05451 976F-01 
2.074 1 5444E-01 
2*41 1516210-01 
2*830225790-01 


4,000000000-01 
9.00000000E— 01 
1 * 400000000 + 00 
1 « 900 000 0OE + 00 
6 .0000O000E+00 
1 • 50 0000 OOE + O 1 
5.0 OOOOOOOE+Ol 
9*040000000+0 1 
2.034000^00+02 
3 o ?38000 OOE + O 2 

6*529557560-04 
1 .08141354 0-03 
2 • 672 B 304 80 — 0 3 
5* 272B3967E-03 
1 0 105631120-02 
1 o69085027E-02 
2*507194050-02 
2.401 06092E-0 2 

1 . B87 0791 70 — 0 2 
1 • 5977629^0-02 

9*21 4 7625 BE- 02 
1 • 74350769E-0 1 
2*066313760-0! 
2o 093063400-01 

2 o 52 ? l 534 8E — 0 1 
3*248248880-01 
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3.681 80137E-01 
6.690 1 8 1 34E-01 
<3.64 1 80061 E-01 
1 *7849925nF+00 

2.3983741 nE+OO 


4.4640?28?f- 01 
7.288814 1 7P-0 1 
1 . 1 035t 691 cr+OO 
1 .9150081 8^+00 
2 .59003632C+00 


4 . 99952 74 2E-0 1 
7.458400688-01 
1 .231 38 486F + 0 0 
2. 06595 084 E +00 


5. 1959926RE-01 
8.21 596024 E-0 1 
1 .4281 6025 E + QO 
2.09697462E+00 


5.93882270E~01 
0.973357296*0 1 
1 . 69729447E+00 
2. 21 4681 45E+QO 
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1 


2 

5 

4 

5 

6 

7 

8 

9 

10 

11 

12 
15 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


Output Description 

In this section the formats for printing the results of the machine 
computations are described. The results of the sample calculation, for 
which the input data were described, are used to illustrate the printout 
procedure* 


NAMELIST HI Output 

For each computational case or run, the program lists the NAMELIST N1 
input data. The program listing of the input data for the sample calculation 
is shown in Figure 1. The format for this printout is evident from the 
figure. 

Inviscid Solution Output 

If CARD 4 0, the program lists the NAMELIST N2 input data. If 
CARD = 0, the program lists the information read from tapes 15 > 22, l6. 

This information is printed on two lines for each body or shock point of 
the method of characteristics and blunt body solutions as shown in Figure 2. 

The first line contains 

X x/r measured on centerline 

n 

Y y/r. n 

Q stream velocity (ft/sec) 

THETA stream angle (rad) 

M mach number 

The second line contains 

2 2 o 

S entropy (ft / sec R) 

P pressure (lbf/fu ) 
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1 

2 

3 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


H enthalpy (ft 2 /sec 2 ) 

RH0 density (slug/ft^) 

FT total pressure (not used in present version of program) 

Body and shock points of the method of characteristics solution 

alternate until x/r n of shock point from TAPE 15 reaches XLSH and if 

XLSH / XLSH1 x/r n of shock point from TAPE 22 reaches XLSH1. This is 

followed by all the body and shock points read from the blunt body solution 

on TAPE 16 . Of these items of information only x/r , y/r , S, and P of 

n n' 

body points and x / r n > y/r^, ® °f shock points will be used in the 
turbulent program. 

Tables of body points and shock points are listed as shown in Figure 3. 
The number of points in these tables may not exceed 450. The information 
given for body points is 

XCL x / r n measured on centerline 



S entropy (ft 2 /sec 2 °R) 

P pressure (lbf/ft 2 ) 

X x / r n measure< ^ on surface 

The information given for shock points is 

YS y/r shock radius 

n 

S entropy (ft 2 /sec 2 *R) 

i 

At specified increments of x/r^ on the body (XMAXTB* DXLTAB) linear 
interpolation in the tables shown in Figure 3 is performed and the results 
are listed as shown in Figure 4. The number of points in these tables may 
not exceed l60. The information given is 
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1 


2 

5 

4 

5 

6 

7 

8 
9 

10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
25 

24 

25 


X 

x/r 
' n 

s 

2 2 

entropy (ft /sec °r) 

p 

pressure 

RB 

r v /r 
b n 

XC 

x/r measured on centerline 
' n 

T 

temperature (°r) 

H 

enthalpy (ft /sec ) 

U 

velocity (ft/sec) 

A 

speed of sound (ft/s.ec) 

M 

mach number 

RH0 

density (lbm/ft^) 

X 

x/r 
' n 

du/dx 

du/d— velocity derivative 

n 

DRH0/DX 

dp/d— density derivative 

n 

dp/dx 

dp/d— pressure derivative 

n 

deb/dx 

d — / d — body radius derivative 
n ' n 


All the output shown in Figs. 2, 3> 4 is in U. S. customary units. 


Stagnation Point Output 


The information for the stagnation point is listed as shown in 
Figure 5. 

H0 heat transfer (kg/m sec) (Ibm/ft sec) 
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1 Q0 heating rate (w/m 2 ) (Btu/ft 2 sec) 

2 These may he output in either SI units (UNI0 = 1.) or U. S. customary 
5 units (UNI0 =2.). 

4 

5 

Output Each Iteration 

6 

7 The turbulent boundary layer calculation is initiated at the point 

8 where transition has been determined to start (XMIW) and continues to the 

9 end of the body (XMAXTB(20) ) . Integration of the momentum equation is 

10 performed by a variable ste^size fifth^rder Runge Kutta numerical scheme. 

11 After each step in the integration the heating rates are calculated. The 

12 procedure is repeated until the velocity at the edge of the boundary 

13 layer varies from one iteration to the next by less than the allowable 
l 1 *- difference (UERR) . The output may be in either SI units (UNI0 = 1.) or 

15 U. S. customary units (IJNI0 = 2.). 

16 

17 

Heating Rates Output 

^ Heat transfer has been calculated using several different skin 

20 friction theories. There may be one, four, or eight lines of information 

21 printed as shown in Figure 6. If one line is printed, the theory used is 

22 Van Driest ( R e0 )- If lines are printed, the theories used are 

25 Van Driest (R^), Eckert's (R^), Spalding Chi (R^, ideal gas), Spalding 

Chi (R e0 , real gas).. If eight lines are printed, the theories used ate 
25 van Driest (R^), Van Driest (R^), Spalding Chi (R^, ideal gas), 
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1 


Eckert’s (R ), Eckert's (R ), Eckert’s (R ), Spalding Chi (R , ideal 

mm 

2 gas), Spalding Chi (R , real gas). 

6u 

5 The values printed on a line for each skin friction theory are: 


4 

RAF 

Reynolds analogy factor 

5 

CFMT 

Mangier transformation factor 

6 

CF2 

skin friction coefficient/2 

7 

ENST 

Stanton number 

8 

HBAR 

local heat transfer coefficient (kg/m sec) (lbm/ft sec 

9 

Q, 

p p 

heating rate (W/m ) (Btu/ft sec) 

10 

HH 

local heat/stagnation heat 

11 

XXI 

(Y/2 tanh \[r) term from Eq. (25) 

12 

HBCF 

local heat transfer coeff icient/Mangler transformation 

13 


(kg/m 2 sec) (lbm/ft 2 sec) 

lb 

qxcf 

heating rate/Mangler transformation (w/m ) (Btu/ft sec) 

15 

HHCF 

(local heat/stagnation heat)/Mangler transformation 

16 



17 



18 


Output at Each Integration Step 

19 

In addition 

to the heating rate information seven lines are printed 

20 

at each step of 

the integration as shown in Figure 6 . The values printed 

21 

on line one are: 


22 

x/l 

distance/nose radius 

23 

X 

distance (m) (inch) 

24 

tketa/l 

momentum thickness/nose radius 

25 

THETA 

momentum thickness (m) (inch) 
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1 

P 

pressure (H/m 2 ) (lbf/ft 2 ) 

2 

RB 

body radius/nose radius 

3 

S 

entropy (m 2 /sec 2 °K) (ft 2 /sec 2 °r) 

4 

S/ST 

entropy/total entropy 

5 

T 

temperature (°k) (°r) 

6 

H 

enthalpy (m 2 /sec 2 ) (ft 2 /sec 2 ) 

7 

h/ht 

enthalpy/total enthalpy 

8 

RH0 

density (kg/m 5 ) (lbm/ft 5 ) 

9 

The values printed on line two are: 

10 

RH0/RH0I 

density/freestream density 

11 

U 

velocity (m/sec) (ft/sec) 

12 

U/SQRT2HT 

velocity/( 2 *total enthalpy ) 1 / 2 

13 

14 

U/UI 

velocity/freestream velocity 

A 

speed of sound (m/sec) (ft/sec) 

15 

M 

mach number 

16 

MU 

viscosity (N sec/m 2 ) (ibm/ft sec) 

17 

RETH 

Reynolds number based on momentum. 1 hickness 

18 

REX 

Reynolds number based on distance 

19 

TW 

wall temperature (°k) (°R) 

20 

HW 

wall enthalpy (m 2 /sec 2 ) (ft 2 /sec 2 ) 

21 

hw/ht 

wall enthalpy /total enthalpy 

22 

The values printed 

on line three are 

23 

RH0W 

wall density (kg/m 5 ) (lbm/ft 5 ) 

24 

At 

tw/t 

wall temperature /temperature 

25 

TAW 

adiabatic wall temperature (°K) ( q R) 
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1 


FRTH 


2 FC F c , Eq. (22) 

3 CFMT Mangier transformation factor 

k LV0 distance from virtual origin 

5 Z z ) Eq. ( 8 ) 

6 CFI initial skin friction 

7 CF2 skin friction /2 

2 2 2 2 

8 HAW adiabatic wall enthalpy (m /sec ) (ft /sec ) 

9 HAW/hT adiabatic wall enthalpy/total enthalpy 

10 The values printed on line four are: 


11 

HP 

2 2 2 2 
Eckert's reference enthalpy (m /sec ) (ft /sec ) 

12 

TP 

Eckert's reference temperature (°K) (°R) 

15 

PRP 

Eckert's reference Prandtl number 

14 

PEW 

wall Prandtl number 

15 

F(l) 

B r Eq. (10) 

16 

F(2) 

Eq. (lO) 

17 

A(2) 

Ajj, Eq. (10) 

18 

alph( 3 ) 

a m , Eq. ( 10 ) 

19 

N 

N exponent in velocity— profile relation 

20 

21 

INTI 

1 2 
f P u pu J y 

J p u 2 d & 

0 e e P e u e 

22 


1 

23 

INT2 


2k 



25 

INT3 

/i_ _fi2L. d y 
</ p e u e S 
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1 


The values printed on line five are: 

1 


2 

3 

iht4 

Ji 1 - ^;)l(™ 8 =/V'n) a l 



i/ 2\ / . \ ir 

4 

INT5 

^6 ( oos 6 c/V r n) d 8 



\ p e e p u / \ / 

5 


r l 

6 

iept6 

f pu dj 

J p u 5 



0 e e 

7 


r ^ 

8 

INT7 

f -es_ d £ 
/ 2 a 8 



0 P u 

^ H e e 

9 



10 

del/l 

"boundary layer thickness /nose radius 

11 

DEL 

hound ary layer thickness 

12 

RSL 

shock radius/nose radius 

13 

dels/l 

displacement thickness/nose radius 

Ik 

DELS 

displacement thickness 

15 

x/dels 

distance/displacement thickness 

16 

DSTH 

displacement thickness /momentum thickness 

17 

DU 

a V a T 

n 

18 



19 The values printed on line six are: 


20 

DEH0 

d 

P /d — 
e r n 

21 

22 

DP 

d 

P /d -i 
e' r 

n 

r / 

cvj 

DKB 

d 

-W*-? 

r n ' r n 

24 

I 

25 

DTHETA 

d 

r n ' r n 
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(kg/ni 5 ) 

(N/m 2 ) 
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(lhm/ft 5 ) 

(Ibf/ft 2 ) 



1 

NST 

Stanton number 

2 

HBAR 

local heat transfer coefficient by Van Driest (R g g) 

3 


(kg/m 2 sec) (lbm/ft 2 sec) 

4 

Q • 

heating rate/stagnation heating rate (Q/QO) ■ 

5 

PEE 

Prandtl number 

6 

EKF 

Karman factor 

7 

QIN 

2 2 

incompressible heating rate (w/m^) (Btu/ft sec) 

8 

QKF 

2 2 

Karman factor heating rate (W/m ) (Btu/ft sec) 

9 

QJCTR 

heating rate from transition (w/m ) (Btu/ft sec) 

10 

The values printed 

on line seven are: 

ll 

OXffl 

heating rate from maximum heating (w/m ) (Btu/ft sec) 

12 

xc 

distance on centerline/nose radius 

13 

RH0USQ, 

pu 2 (N/m 2 ) (lbf/ft 2 ) 

14 

TAU 

shear stress (N/m 2 ) (lbf/ft 2 ) 

15 

16 

17 

18 

Output at End of Transition 

In each iteration, whenever x/r^ 4s within .0001 of ELT a velocity 

19 

profile is printed 

. The information printed for all points in the 

20 

Gaussian integration is: 

21 

y/d 

y/r n / 6/r n 

22 

U/UE 

velocity ratio 

23 

H 

2 2 2 2 
enthalpy (m /sec ) (ft /sec ) 

24 

RH0/EH0E 

density ratio 

25 

EH0U/EH0EUE 

density * velocity ratio 
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1 

2 

3 

h 

5 

6 

7 

8 

9 


KBAR 

T 

M 


vaJR 


^ + B E (u/u e > 
temperature ( C K) (“I?) 
Mach number 


Output at End of Iteration 

At the end of each iteration the maximum relative error between the 
velocities at the edge of the boundary layer of the present iteration and 
the previous iteration is printed (T0LL) . 


10 

At the end of 

each iteration two additional lines of infoimation ; 

11 

printed as shown in Figure 7- The values printed on line one are: 

12 

REX2 

(omit in present version of program) 

13 

X2REX 

(x/r )m vi distance at end of transition 
' ' n turb' 

Ik 

EN2KEX 

^turb* ex P oner| t ih velocity profile relation at end 

15 


transition 

16 

CEM 

“turf "tr 

17 

CEB 

*+/ M r Aurt, - < x / r a>t»] 

18 

CF2REX 

(C^/2) skin friction coefficient/2 at end of 

19 


transition 

20 

CEMP 

< C f/ 2 >turb- V 2 hr 

21 

CEBP 

tanh \J/ 

22 

XMIB 

(x/r ). , distance at start of transition 
' n tr 

23 

RSISAV 

(emit in present version of program) 

24 

ENI 

N^., exponent in velocity profile relation at start 

25 


transition 
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NASA- 

•Langley Form 22 (Ap 

ir 69 ) 



1 


CF2I 


(C^./2) , skin friction coefficient/2 at start of 

2 transition 

5 The value printed on line two is: 

b KEXSAV R , local Reynolds number based on surface distance 

6 j X 

5 at start of transition 

6 

7 

Final Iteration Plotting Output 

8 

9 If plotting is desired, the information in labeled common BLOCK may 

10 be called for in the user's own plotting routine. This block holds all 

11 information from the final iteration. The block contains: 


12 

PLT1 

X 

distance (inch) 

13 

PLT2 

N 

exponent in velocity profile relation 

lb 

PLT3 

RETH 

Reynolds no. based on momentum thickness 

15 

PLTi 

CF2 

skin friction coefficient/2 

16 

PLT5 

M 

mach numb er 

17 

PLT6 

DEL 

boundary layer thickness (inch) 

18 

PLT7 

DELS 

displacement thickness (inch) 

19 

plt8 

THETA 

momentum thickness (inch) 

20 

PLT9 

H/HT 

enthalpy /total enthalpy 

21 

PLT10 

REX 

Reynolds no. based on distance 

22 

PLT11 

S/ST 

entropy/total entropy 

23 

PLT12 

U/UI 

velocity /velocity freestream 

2b 

PLT13 

RH0/RH0I 

density/density freestream 

25 

PLT14 

Q/Q0 

heating rate 
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NASA- Langley Form 22 (Apr 69) 



1 PLT15 RSL 

2 NKWSAV 

3 
k 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2k 
25 


shook radius/nose radius 

number of X stations (maximum of 160) 
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NASA- Langley Form 22 (Apr 69 ) 



Figur« 1 


*Nl 

XM IN = 0.15E*02« 

OXL TAB = O.IE+OO, O.tE+OO, 0.2£*00, 0.2E*00, 0.5E+00, 0.5E*00» 0.1E*01, 

O.IEMH, 0.5E*0l» 0.5E+01, 0. 1E*02» 0.1E*02» 0.25E*02. 

0.25F*02, 0.25E *02 * 0.25E*02, 0.25E+02, 0.25E+02, 0.25E+02, 

0.25E*02, 

XMAXTR = 0.15E+02, 0.l6£«-02, 0.16E+02, 0.2E+02, 0.2E+02, 0.35fc«-02t 

0.35E+02, 0.65EK12, 0.65E+02, 0.U5E + 03, 0.iL5E*03, 0. 2156*03, 

0.39E*03, 0.39E*03, 0.39E*03, 0.39E*03, 0.39E+03, 0.39E*03, 

0.39F*03, 0.39E *03, 

ELT = 0.22301E*03, 

XI. SH = 0.283F*03, 

XV.SH1 - 0.283E+03, 

XMML = 0.21 3E + 03 * 

EL = 0.1016E-01, 

X29EX = 0.22 3E +03 » 

RHOUI = 0.7L 03932045 E+03, 

SHEAR = 0.676l36 c -05. 

RO = 0. 2 7 55 l 7563 6E* 01 > 

RHOT - 0.1225468186E*00, 

HI * 0.579674736F *04, 

HT = 0.17 0V 2 4 046 8E *08 • 

ST = 0.1 1 25026085E*05. 

TT11 = 0.735F*04, 

OEL * 0.0, 

THC = 0.872664626E-01, 

= 0.72F+00, 


GC 


0.32 174F*02 
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TP AN 


o.ie*oi 


CARD = 0.0. 

PRINT = 0.16*01, 

A — 0.0. 0.0. 0.0. 

c = 0.0. 0.0. 0. IE *01 « 

4LPH = = 0.16*01, 0.16*01, 0.0. 

7MIN = 0.316236*02, 

TMAx = 0.681336* 03 • 

AN = O.33333333E*00» 

CN = 0.56 *00. 

ON = 0.256*00, 

K N = 0. 3333333 3Pf 00, 

RRXT = 0.58266*04, 0.68S3E*04, 0.82536*04, 0.10066*05, 0.12516*05, 

0.15926*05, 0.2078E*05, 0.27966*05, 0.39016*05, 0.56 796*05, 

0.86976*05, 0.1417E*06, 0.24926*06, 0.48286*06, 0.1J62E*07, 

0. 27786*07, 0.9346*07, 0. 46516*08, 0.4616*09, 0. 5758E*11, 

6C XT = 0.105E-0I, 0. IE-01, 0.95E-02, 0.9E-02, 0.856-02, 0. 8E-02, 

0.75E-02. 0 . 76- 02 , 0.656-02, 0.6E-02, 0.55E-U2, 0.56-02, 

0.456-02, 0.4E-02, 0.35E-02, 0.3E-02, 0.25E-02, 0.2E-02, 

0.1 5 C — 0 2. 0. IE-02. 

FR T9 = 0.5046E*02, 0.55976*02, 0.62556*02, 0.70916*02, 0.9249E*02, 

0,95626*02, 0.11446*03, 0.14046*03, 0.17766*03, 0.233E*03, 

0.31 946*03, 0.46236*03, 0.7166*03, 0.12086*04, 0.2283E*04, 
0.5036*04. 0. 13866*05, 0.5425E*05, 0.39556*06, 0.28786*08, 

FCTR = 0.17326-01, 0.16246-01, 0.15166-01, 0.14096-01, 0.13046-01, 

0.120166-01, 0.1 1014E-01* 0.100426-01, 0.91056-02, 0.82O5E-02, 

0.73456-02. 0.65266-02, 0.5747E-02, 0.50066-02, 0.4299E-02, 

0.36216-02. 0.29676-02, 0.23336-02, 0.17166-02, 0. 11176-02, 

TKTA8 = 0 .5E *03 , 0.16*04, 0. 15E+04, 0.2E*04, 0.25E*04, 0.36*04, 

0.356*04, 0 »4E*04, 0.456*04, 0.5E*04, 0.55E*04, 0.66*04, 

0.65E+04, 0.76*04, 0.756*04, 0.86*04, 0.856*04, 0.96*04, 

0.956*04, 0.16*05, 0.105E*05, 0.116*05, 0.1156*05, 0. L2E*05, 

0.1256*05, 0. 13E*05 , 0.1356*05, 0.14E*05, 0.1456*05, 0.156*05, 

0 4T 44 = 0 . 10 1 3 256 *0 2 0.10132 56*03 , _ 0. 101 32SE »04, 0 .101 32 56*0 5 , 
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0. 1013256+06 


0. 1 013256*07 


0. 1013256+08 


0.7388+00* 

0. 7568+00* 

0.767E+00* 

0.6148+00* 

0.771E+0 0* 

0.7148+00* 

0* 6065 + 00 * 

0. 58 7 E+00 , 

0. 764E+00* 

0*9938+00* 

0.8715 +00 * 

0.3845+00* 

0.348E+00. 

0.3378+00* 

0. 33E+O0 * 

0.316E+00* 

0. 27 68+00 * 

0. 1987E+00 

, 0. 1148+00 

, 0.577E-01 

0.312^-01, 

0. 2075-01, 

0.1575-01* 

0. 132 8-01 , 

0. 128-01 * 

0. 1 158-01 p 

0* l 09E— 01 * 

0.1098-01, 

0.1098-01, 

0. 1098-01* 

G. 7385*0 0. 

0 • 756E +00 * 

0.7675+00* 

0.668E+00* 

G.654fc + 0 0* 

O. 7458+00* 

0.6588+00* 

0.585+00, 

0 • 6 1 1 E +00 * 

0 .7998 + 00 , 

0.9895*00* 

0. 89184-00* 

0.383E+00* 

0.3468+00* 

G.334E+00* 

0*32 8'E 4-00* 

0.3215+00* 

0.307E *“00, 

0 * 273 E +00 , 

0* 21E +00 , 

0.14275+00* 

0.878-01* 

0.5035-01* 

0.3218-01* 

0. 2138-01* 

0.166E-01 9 

0.1428-01 * 

0. 138-01 t 

0*1 198—Ql , 

0 « 1I4E-01 * 

0.738* + 00* 

0*7568 + OO* 

0.7678+00* 

0.724E+00, 

0.6118+00* 


0.746*00, 0 . 737 E + 00, 0.6196*00, 0.578E+00, 0.6246+00, 

0 .7 85E + 00 • 0.9696*00. 0.955E+00, 0.836+00, 0.35E+00, 0.3326*00, 

0.324E+00, 0. 326+00 * 0.3166*00, 0. 3136+00, 0.2846+J0 » 

0.2466*00, 0.19456+00, 0.14096*00, 0.949E-01, 0.634E-0W 
0.4166-01, 0.293F-01, 0.202E-01, 0. 1196-01, 0.7386*00, 

0.7566*00, 0.7676+00, 0.7666+00, 0.645F*00, 0.6366*00. 

0.7446+00, 0.7596+00, 0.616+00, 0.581E+00, 0.6176*00 . 

0. 736E* 00. 0.9Q6E+00, 0.9966*00, 0.9696*00, 0.o48£+00» 

0.335E+00. 0.3216*00, 0.3146*00, 0.316*00, 0.3096*00, 

0. 303E* 00, 0.2936*00, 0.2766*00, 0.25F*00, 0.2156*00, 

0, 1733E+00. 0.13386*00, 0.903E-01, 0.7196-01, 0.738E*00, 

0.7566*00, 0.7676*00, 0.7736*00, 0.6966*00, 0.6276*00, 

0.666*00. 0 .762E *00, C.752E*00, 0.6116*00, 0. 5636*00, 

0.602F*00, 0.6736*00, 0.796E*00, 0.9276*00, 0.9836*00, 

0.9436*00, 0,8076*00, 0.33E+00, 0.3086*00, 0.3016*00, 

0.296E*00, 0.2956*00, 0.2936*00, 0.29E*00, 0.2846*00, 

0,2766*00. 0.2636*00, 0.237E*00, 0.22E+00, 0.7386*00, 

0.7566*00, 0.7676*00, 0.7736*00, 0.75LE*00, 0.686*00, 

0.6316*00, 0.6626*00, 0.7436*00, 0.767E*00, 0.626*00, 

0.5926*00, 0.592F*00, 0.62E*00, 0.6886*00, 0.7886*00, 

0.9916*00, 0.9616*00, 0.9666*00, 0.872F*00, 0„51E*00, 

0.2946*00, 0.2846*00, 0.2776*00, 0.2726*00, 0.2726*00. 

0.276*00, 0.2696*00, 0.2656*00, 0.2636*00, 0.738E*0£>, 

0.7566*00, 0.7676*00, 0.7736*00, 0.7626*00, 0.746*00, 

0. 6 79E * 00 * 0.64E*00. 0.6546*00, 0.7026*00, 0.7486*00, 

0.7636*00. 0,616*00. 0.593F*00, 0.5956*00, 0.626*00, 0.6666*00, 

0.736*00, 0. 806E*00» 0.8866*00, 0.937E*00, 0.9356*00, 

0.9476*00. 0.9086*00, 0.7286*00, 0.2756*00, 0.2516*00, 

0.2456*00, 0.2416*00, 0.2386*00, 

MXINIT = 12, 

XINT = 0. 36576F* 00 , 0.7470146*00, 0.9758686*00, 0.12809226*01. 

0.1 46 5 07? 6*0 1, Oo 1814836+01 , 0.21190846*01, 0. 2475992 E+0 1 , 

0.272999?E+0l, 0. 3035046E+01 , 0.3340609E+01 , 0=362000 8t*01, 
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TWT * 0.63555556E*03» 0. 56277778E *03* 0. 56888889E+03, 

0.60055556E* 03» 0. 69888889E +03» 0. 74833333E+03 » 

0.S0222222E+03, 0.8l944*44E*-03* 0. 838B8889E+03, 


L 

* 

5* 

m 


A ^ 

NT 


1. 

Cl 

= 

0.125F-OT, 

SPFC 

s 

0,0. 

CT*AX 

s 

0.16F+0?. 

8 L r V 

e 

0.1E-02, 

F IF ? 

- 

0.1F-02, 


= 

0* 1F-02 , 

•JE*R 

a 

0. IF-02 9 

CFFCR 

=t 

0,4E-02. 

xvn 


O.tE+02, 

PSI 

= 

0.2Ff0l o 

FNI 

= 

0.154E+01, 

ALMIN 

a 

0, 1 2 6E *0 1 * 

ALX 

* 

0. 1 E+01 * 

FPQPT 

3 

0*0, 

TP 

- 

0.0 f 
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0.577 77778E*03* 
0. 78833333E*03» 
0.627 77778E*03* 



ENX 

£ 

0 * 7E ♦Ol * 

RH0T2 

- 

0.14U612279R + 01 t 

RNOT 

s 

0.1016E-0K 

PT2 

= 

0#394^327774E+07* 

PINF 

= 

0*736972931 IE+04, 

TWO 

« 

0*1666666667F^04p 

IGftS 

- 

?. 
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ftCPT 


* 0.?e-0l. 0.1756-01, 0.15E-01, 0.1256-01, O.IE-Ol. 0.9E-02. 

0.86-02, 0.76-02, 0.6E-02, 0.556-02, 0.56-02, 0.456-02, 

0.46-02, 0.356-02, 0.36-02, 0.256-02, 0.2256-02, 0.26-02, 

0.19E-02, 0.18E-32, 0. 176-02, 0.166-02, 

TREXT = 0.257146*04, 0.38575E*04, 0.63076*04, 0.116«4E*Q5, 0.26303E*05» 

0.395066*05, 0.63468E*05, 0.11152E*06, 0.22135E*06. 0. 333246 *06, 

0.52896E *06, 0.90014E*06, 0. 167616*07, 0.351956*07. 0.87332E*07, 

0.276736*08, 0. 56 185F *08, 0.12R89F*)9, 0.18754E*09, 0.281016*09, 

0.43546*09, 0.701266*09, 

UNIN = 0.1F+01, 

UNIO = 0,16*01. 

$6N0 
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Figure 2 


BODY 4-SMOCK PTS 


X 

s 

2.35093923 2F— 0 1 
6.6426579436*04 
2.279971 312E-01 
6.6 2088 599 8F 4 04 
2.37 394243 5E— 0 1 
6. 64265 794 8F 404 
2.2148222935-01 
6. 59 936 3 03 9E 4 Q4 
2 .404488724F-0 1 
6. 64 2657 94 8F 40 4 
2.15471 8 23 8E— 01 
6. 57 79 16 22 2F 404 
2.439 180499E-0 l 
6. 64265 7948E*Q4 
2 .098895 72 9E-0 1 
6.55651 7 08 7E 4 04 
2.477014425E-01 
6.64265794BE4Q4 
2 .0468163018-01 
6.5351930626*04 
2.517O16128F-01 
6. 642 65 7 94 PE 404 
1.998033 73 4E-01 
6.51393 3 58 6E 404 
2.559596891F-01 

6 » 64 2 65 7 94 8E 404 

1.95211 0 754E-01 
6 .492690 39 4E 404 
2.601415062E-01 
6.64265 7948E 404 
1.90878833 IE-01 
6.471453052E404 
2.645 150471E-01 


Y 

P 

6 . 44 14 1 8273 E- 01 
4. 43 73 1422 3E 4 04 
6. 5005 34248 E- 01 
4. 48947 402 2 E4 04 
6.4686355615-01 
4.3077983258*04 

6 . 5 540 0 3102E-0 1 

4.5 4 04 8 5 1 99 E404 
6. 504476032 F-01 
4. 28708 736584 04 
6,6048695246-01 
4. 59072 2 703 E 404 
6.544769550E-01 
4.250737843E404 
6.651369436E-01 
4.640386127E404 
6.58822 3436 E- 01 
4.20774 755 3E 404 
6.69475 096 IE- 0 1 
4.68951 1543F404 
6.633622869E-01 
4.160948977E404 
6. 73 53 82882 F- 01 
4.73 812 33306*04 
6. 68023351 1F-01 
4.11 18945556*04 
6. 7736406 94E-01 
4.786233707E404 
6.727625206E-01 
4.0615508555*04 
6. 80972 8087 E- 01 
4.833851778E404 
6. 77 541 05 71 E- 01 


0 

H 

5.9549018725*03 
1.662669132E408 
6. 332075 186 E «-03 
1.639497359E*08 
5.954596207E403 
1.653881 849E408 
6. 6 862 70488 E* 03 
1 .61664 8377 E 4 08 
5.976382038E403 
1. 65258 2217E4 08 
7 . 02047 1474E403 
1.593937141E408 
6.0034530246*03 
l. 65096 0688 E4 08 
7. 3 3729 8 5 58E*- 03 
t.571342015E*08 
6. 048674568 E* 03 
1.6482356 09 E4 08 
7. 6384373 30E+ 03 
1.548897253E+08 
6. 0979795 28E*03 
1 .64524 l l 57 E 4 08 
7.925335375E403 
1.526582961E408 
6. 14972 0477 E* 03 
1.642072619E408 
8.1 99614766 F403 
1.504340909E408 
6.202838511F403 
1. 638788799 E* 08 
8. 46 2 l 347 34 E 4 03 
l .4821590905408 
6.2571267595403 


TH£TA 

RHO 

8 . 7676132296-01 
1.619327 190E— 03 
8. 6791622T3E-01 
1. 653346467E-03 
8. 673318994E-01 
1.5797478216-03 
8.61 14366746-01 
1.68 7554999E-03 
8.626227390E-01 
l. 57331 82 08E— 03 
8.5587936236-01 
1.722232315E-03 
8. 573056970E— 01 
1.56 157 5743E— 03 
8. 5167744946-01 
1 • 757495314E— 03 
8.51 544 052 Ot— 01 
l. 5482025126-03 
8.4828776106-01 
1 • 79 3 363 1 77E-03 
8.4549322 08 E— 01 
1. 533608768E-03 
8. 45 506 86 75 E—0 A 
l. 8298953216-03 
3. 392470023 £—01 
L. 5182824806-03 
8.43A620506E-01 
1. 867186783E-03 
3. 3235999306-01 
1 • 50 2524565E— 03 
8.41 17734 TOE— 01 
1. 90 5 30095 7E— 03 
3.263321 5 75 E— 01 


M 

PT 

1.0499995546*00 

0. 

1.1209910826400 

0 . 

1.0524336835*00 
8.00931 14016*04 
L.l 884704216*00 

0. 

1.0 566660456*00 
9.00931 14016*04 
1.2529701216*00 

0 . 

1.0619977436*00 

8.0 093 1 1400E *04 
1.3 149363746*00 

0. 

1.0708 1 044 3 E *00 
8.00931 1400E*04 
1.3746416396*00 

0. 

1 .08044 1570E *00 
3.0093114016*04 
1.4323338596*00 

0 . 

1 • 0 905 742 03 F *00 
8.00931 1401 E*04 
1.488310276E *00 
0. 

1 .1 010 13972E*00 
9.0093114015*04 
1.542 7232236 *00 

0. 

1.1 116930756*00 


184 



Figure 3 


xci 

0* 

3-056171516-04 
1-1 52444006—03 
2.565859636-03 
4.54886810E-03 

7 - 1055444 56—03 
1-074099936—02 
1 . 39614 53 4 6-0 2 
1.827432946-02 


3.467866376*02 
3-48493 1996*02 
3-501635796*02 
3 .523303236*02 
3.543365866*02 
3.568407776*0? 
3-5917309 16 *02 
YS 

0 . 

4 * 76045 890E — 0 2 
9-52 09 178 OE - 02 
1.4281376 76-0 t 
1.9 04 1835 66— 01 
2 .380229456—01 
2. 8562753 46-01 
3 .33232 1 2 3E-01 
3.808367! 2E-01 
4.2844130 tF-Ol 
4.76045890E— 01 
5.236504796-01 
5.712550686-01 
6.188596576-01 

6- 6646424 6F— 01 

7- 1076596G6-01 
7.17789L91F-01 
7.249307646-01 
7. 321453336-01 
7-39455 86 66-0 t 
7. 468483606-01 
7.543222016-0! 


Y 

0 . 

2.380229456-02 
4. 7604 5390 E- 02 
7 . 1406 88356—02 
9.520917806-02 
l . 1901 1472E-01 
1 .428137676-01 
1.66616062E-01 
1. 904183566-01 


3.125628766*01 
3.140559256*01 
3.155173196*01 
3-174129766*01 
3.191682296*01 
3.213590666*01 
3.233996246* 01 
S 

6.635502536*04 
6.6336 59 46 6 *04 
6-628132956*04 
6 . 6 L8 9 2724E *04 
6.606051216*04 
6.5 89 52153E *04 
6. 569364756*04 
6.54561 844 E *04 
6. 518333366*04 
6 & 4 87 58 4 216*04 
6.453275076*04 
6.415841966*04 
6.375546126*04 
6.332842986*04 
6.287356156*04 
6. 242357286*04 
6.234995316*04 
6o 2. 27 4 61936*04 
6.2 19 768526*04 
6.211905236*04 
6.203878836*04 
6.195693526*04 


$ 

6.637715056*04 
6. 637684336*04 
6.637590726*04 
6.637433156*04 
6.637213016*04 
6.636931866*04 
6.636589546*04 
6.636183286*04 
6.635706406*04 


6.642657956*04 
6. 642657956*04 
6.642657956*04 
6 • 64 265 795 E * 04 
6-642657956*04 
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Figure 6 (cont.J 
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Figure 6 (cont.) 
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FUNCTION DIF 


LANGUAGE: FORTRAN 

This is a function subprogram vhich differ- 
entiates the function at any given point 
in a table of supplied values. 

R = DIF <L, M, NP, VARI, VARD) 

L An integer, the point at vhich the 
function is differentiated. 

M An integer from 1 - 5 to determine the 
point formula, N, where N = 2M + 1. 

If M is not in this range, the deriva- 
tive is set to INDEFINITE. 

NP An integer, the number of points in the 
table. 

VARI A one-dimensional array of the independent 
variable. 


PURPOSE: 


USE: 


VARD A one-dimensional array of the dependent 
variable. 

R The result. 

RESTRICTIONS: The maximum N for the formula (see Method 

below) is 11 , that is, M nay not exceed 5. 
The differentiation ia indefinite for an 
invalid M. 

The answer will be I, indefinite, for M 
out of range or N > NP. 


METHOD: 


The two arrays must be. dimensioned i» the 
calling program as indicated: VARI(NP) 

VARD(NP). y> 

The Lagrangian N-point formula (N always odd) 
is used. 
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DIF 


dY _ J= n 
dx " n (x k 
j=o 


Vja 


i*n 


L 

i = 0 


— 1 

D ikl i?ik 


+ 



(x k - 


) 


-1 

J?*k 


where 


D ik = U k ' x i> p i( x i) 


(i*k) 


p i(*i ) = J n n (xj, - X, ) 
j=o 


(j*i) 


N points are required to differentiate 
where N is odd. N = 2»M +1 , M - (N - l)/2 


The following table shows the value of the 
discrete point, L, the value of k, and the 
points used for the differentiation. 

NP = last point of the table. 


L 

1, 2, . ♦ , M+l 

M+2, M+3 , . . . NP-M 

NP-M+1, N P - M* 2 , ... NP 


K 

L 

M-rl 

L-(NP-N) 


POINTS FROM TABLE 

1, 2, . . . N 

Xj— M , « , • L+M 

NP-N+1, NP-N+2 , . . . NP 


ACCURACY: The accuracy is a function of the chosen 

M and the number of points in the supplied 
tables. 


REFERENCE: 

STORAGE: 

SOURCE: 

RESPONSIBLE 
PERSON : 


K. L. Neileon, Methods in Numerical Analysis, 

pp.- 150-15U 

DIF 2l7g locations 
NASA, LRC, Vivian P. Adair 

Vivian P. Adair 
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FUNCTION OIF a ,M,NP,VAR I ,VARD) 

OIF 

1 

c 



OIF 

2 

c 

THIS FUNCTION SUBPROGRAM FINDS THE DERIVATIVE AT A GIVEN POINT, 

OIF 

3 

c 

L. FOR THE DESIRED X AND Y 

IN A GIVEN TABLE. THE N-POINT 

OIF 

4 

c 

LAGRANGiAN FORMULA IS USED 

WHERE N IS ODD. 

OIF 

5 

r 



DIF 

6 

c 

L = INTEGER, THE POINT OF X 

AND Y AT WHICH DERIVATIVE IS FOUND 

OIF 

7 

c 

m * INTEGER, 1-5, TO DETERMINE THF POINT FORMULA, N. N=2*M*L 

OTF 

8 

c 

NP= INTEGER, THE NUMBER OF 

POINTS IN TABLE OF VARIABLES 

OIF 

9 

r 

VAPI * ARRAY OF INDEPENDENT 

VARIABLE, X. VAR I < NP I 

OIF 

10 

r 

VAPO = ARRAY OF DEPENDENT VARIABLE, Y. VARUINPJ 

OIF 

tl 

C 



OIF 

12 


DIMENSION V4RUNP), VAPIMNPK 

xi id, yuu 

OTF 

13 

C 



OIF 

14 


Q I F=a 17770000000000000000 


OIF 

15 


IF (M.LT.l) return 


OIF 

16 


N=2*m+1 


OIF 

17 


IF < M.GT . 5* HR • N*GT« NP1 RETUR N 


OIF 

IB 




OIF 

19 


M2=NP-M* 1 


OIF 

20 


K=L 


OIF 

21 


IF (L.LF.Ml.OR.N,ECUNP) GO TO 

i 

OIF 

2? 


K*Ml 


OIF 

23 


IF IL.LT. M2 1 GO TO 1 


OIF 

24 


K =1-1 NP -N ) 


OIF 

25 

l 

MX=t-K 


OIF 

26 


00 2 J=1,N 


OIF 

27 


MJ=MX+J 


OIF 

28 


X( J >*VAR ItWJ) 


OIF 

29 

? 

Y ( J^VAPD(MJ) 


OIF 

30 


A = 1 . 


OIF 

31 


B-0 • 


OIF 

32 


c=o„ 


OIF 

33 


00 4 J- 1 f N 


OIF 

34 


IF < J •EO*K! GO TO 4 


OIF 

35 


p=K 


OIF 

36 


DO 3 ! =1 ,N 


DIF 

37 


t f (U8Q*J* GO TO 3 


OIF 

38 


P=^(X( Jl-X< I 5 J 


OIF 

39 

3 

CONTINUE 


DIF 

40 


T»X(M-X« 


OIF 

4 i 


B=R»YU}/IP^T) 


OIF 

42 
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4 


A=A*T 

OC+l./T DIF *3 

CONTINUE DlF *4 

0IF=A*8*Y(K » *C 0IF * 5 

RETURN OIF 

END OIF *7 


OIF 48- 
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.SUPERSEDES COPY DATED: 2-28-67 I page” 


SUBROUTINE DISCOT 


: FORTRAN 

SINGLE OR DOUBLE INTERPOLATION SUBROUTINE FOR 
CONTINUOUS OR DISCONTINUOUS FUNCTIONS 

Given some function with tvo independent variables, 
x and i , this subroutine performs K x th and K z th 
order interpolation to calculate the dependent 
variable. In this subroutine all single line 
functions are read in as two separate arrays 
and all multi— line functions are read is as 
three separate arrays , i.e. 

x i i - 1, 2, ... L 

J = 1, 2, . . . M 

z k * = 1 , 2, . . . N 

CALL DISCOT (XA, ZA, TABX, TABY, TABZ , NC, NY. 

NZ, ANS) ... 

XA - The X argument. 

ZA - The Z argument (may be the same name as X on 
single lines). 

TABX - A one-dimensional array of X's, 

TABY - A one-dimensional array of Y's. 

TABZ - A one-dimensional array of Z's. 

NC - A control word that consists of a sign and three 

digits. The control word is formed as follows: 

(1) If NX = NY, the sign is If NX ? NY, NX 

is computed by DISCOT as NX = NY/NZ. The 
sign is + and may be omitted if desired. 

(2) A 1 in the hundreds position of the word 
indicates that no extrapolation occurs 
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above Z max. With a zero in this position 
extrapolation occurs when Z >Z max. The 
zero may be omitted if desired. 

(3) 1-7 In the tens position of the word indi- 
cates the order of interpolation in the 
X direction. 

(U) 1-7 in the units position of the word 

indicates the order of interpolation in 
the Z direction. 

NY - The number of points in the Y array* 

NZ - The number of points in the Z array. 

ANS - The dependent variable Y. 

The following programs will illustrate various 
ways to use DISCOT. 

Case I. Given Y = f{x) 

NY - 50 

NX (number of points in X array) = NY 
Extrapolation when Z > Z max 

Second order interpolation in X direction 
No interpolat ion in Z direction 
Control word = -020 

1. DIMENSION TABX (50), TABY (50) 

1 FORMAT ( 8E 9.5) 

READ (5, 1) TABX, TABY 
READ (5* 1) XA 

CALL DISC0T (XA, XA , TABX, TABY, TABY, 
-020, 50, 0, ANS) 

Case II Given Y = f(x, z) 

NY - 800 
NZ = 10 

NX - v NY/NZ (computed by DISC0T) 
Extrapolation when Z >Z max 
Linear interpolation in X direction 
Linear interpolation in Z direction 
Control word = 11 
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DIMENSION TABX (800), TAB! (000), TABZ (10) 
1 FORMAT (8E 9.5) 

READ (5, 1) TABX, TABY, TABZ 
READ (5, 1) XA, ZA 

CALL DISCOT ( XA, ZA, TABX, TABY, TABZ, 

11, 800, 10, ANS ) 

Case III. Given Y = f(x, z) 

NY = 800 
NZ = 10 
NX = NY 

Extrapolation when Z >Z max 

Seventh order interpolation in X direction 
Third order interpolation in Z direction 
Control word = -73 


DIMENSION TABX (800), TABY(800), TABZ (10) 

1 FORMAT (8E 9.5) 

READ (5* I) TABX , TABY, TABZ 
READ (5, 1) XA, ZA 

CALL DISCOT (XA, ZA , TABX, TABY, TABZ, 

-73, 800, 10, ANS) 

Case IV, Same as Case III with no extrapolation above 
Z max* Control word - -173 

CALL DISC0T ( XA , ZA, TABX, TABY, TABZ, -173, 
800, 10, ANS) 

RESTRICTIONS: See he of METHOD for restrictions on tabulating 

arrays and discontinuous functions* The order 
of interpolation in the X and Z directions may 
be from 1-7* 


The following subprograms are used by DISCOT: 
UNS, DISSER, LAGRAN, 


METHOD: Lagrange’s interpolation formula is used in both 

the X and Z direction for interpolation* This 
method is explained in detail in Methods in Numeri- 
cal Analysis by Nielsen* The search in both the 
X and Z direction observe the following rules: 

1* X < Xi the routine chooses the following points 
for extrapolation* 


1 
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X x 9 ^2 > » • * # ^k + 1 . ^.1 * ^2 » * # • 1 

2, X > X the routine chooses the following 
n 

points for extrapolation,, 

x n-k> X n-k+l» * * * * X n Y n-k» Y n-k+l * * * Y n 

3* XI X Q the routine chooses the following 
points for interpolation* 

k is odd X i_ k+ i’ X i-k+I=H > * " ' X i-k+l+k 


2 2 2 

Y l -k+l » Y i-k+l+l * * * * * Y i -k+l+k 

2 2 2 

k is even X ± _^ X.^, X i-k+k 

2 2 2 

Y Y Y 

i-k ’ i-k+1’ i-k + k 

2 2 2 


h. If any of the subscripts in Rule 3 become 

negative or greater than n (number of points), 
Rules 1 and 2 apply* When discontinuous 
functions are tabulated, the independent 
variable at the point of discontinuity is 
repe at ed , i • e . 

k = 2 (X lt X 2 ,X 3 ,X 3 ,X 4> X 5 ,Y 1 ,Y 2 ,Y 3 ,Y 1(t Y 5 ,Y 6 ) . 

The subroutine will automatically examine the 
points selected before interpolation and if 
there is a discontinuity, the following rules 
apply» Let and be the point of 

discontinuity* 
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a. 


X<X d points previously chosen are 
for interpolation as shown 


modi f i e d 


X d-k» X d-k+l» " * * * x d 

Y d-k* Y d-k+l X d 

X >X d Points previously chosen are modified for 
interpolation as shown 

X d+1* X d+2‘ * * * • X d+k 


c . 


Y d+1» Y d + 2 Y d+k 


When t 
there 
below 
proper 


abulating discontinuous functions 
must always be k+1 points above and 
the discontinuity in order to get 
interpolation. 


When tabulating arrays for this 
both independent variables must 
ascending order. 


subroutine , 
be in 


In some engineering programs with 
it is quite desirable to read in 
x s that could be used for all li 
multi-line function or different 


many tables 
one array of 
nes of a 
functions ♦ 


> 


+ «>.„! I r B * ves mu ch time in preparing 

tabular data, but can also save many locations 

t . h .e corresponding x coordinate. Even 
though the above i s not always applicable 

h ‘ S b " n ” rltte ” “■ 


Another additional feature that 
ie the possibility of a multi-1 
with no extrapolation above the 


may be useful 
ine function 
Top line. 
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ACCURACY : 

A function of the order of interpolation used* 

REFERENCE : 

Nielsen, K«L.; Methods in Numerical Analysis 

STORAGE: 

DISCOT - 555g locations 

SUBPROGRAMS 

USED: 

UNS 1*0 locations 
DISSER HOg locations 
LAGRAN 55 q locations 

OTHER CODING 

INFORMATION : 

NONE 

SOURCE: 

SHARE Library , General Motors Corp. , Allison Div. 

RESPONSIBLE 

PERSON : 

Vivian P, Adair 


203 





SUBROUTINE 01 SCOT I X4, ZA, T ABX.TABY, TABZ , NC , NY .NZ , ANS i 

OIC 

1 

c 

*** DOCUMENT DATE 08-01-68 SUBROUTINE RE V [ StD 0 8-0L-68 **#******OIC 

2 

c 

THE DIMENSIONS IN THIS SUBROUTINE ARP ONLY DUMMY DIMENSIONS. 

OIC 

3 


DIMENSION TABXI 2 J » TABYm , TABZ €21* NPX ( 8 ) » NPYI8I, YY(8> 

DIC 

4 

c 

DIMENSION TABXI2J »T ABYI 2 ) # TABZ I 2 1 1 NPX I 8 ► » NPY( 81 » YY( 8 1 

DIC 

5 


CALL UNS INC.IA.IOX.IOZ.IMSI 

DIC 

6 


IP (NZ-1 > 1,1,2 

OIC 

T 

1 

CALL OISSER IXAtTABXUI* I.NY.IOX.NN) 

OIC 

8 


NNN=IOXU 

OIC 

9 


CALL LAGRAN I X A , T ABX INN ) . T AB Y I NN I ,NNN , ANS I 

OIC 

10 


GO TO 12 

OIC 

n 

2 

7ARG=ZA 

DIC 

12 


FP1X=IDX+1 

OIC 

13 


IP 1 Z = ID? + 1 

OIC 

14 


IF (TAJ 3,5.3 

OIC 

15 

3 

IF (ZARG-TABZFNZ n 5 ,5. A 

DIC 

16 

4 

7AP.G=TABZ!NZ I 

OIC 

17 

5 

CALL OISSER I ZAPG.TABZm , 1, NZ ,1 DZ.NPZI 

OIC 

18 


NX=NY/NZ 

DIC 

19 


NPZL=NPZ*TDZ 

DIC 

20 


1 = 1 

OIC 

21 


IF I I MS I 6,6,8 

DIC 

22 

6 

CALL OISSER (XA.TABXUI, I, NX, TDX.NPXI III 

DIC 

23 


no 7 JJ*NPZ,NP7L 

OIC 

24 


N»ymM jj-i >*Nx+NPxm 

OIC 

25 


NPXI IlsNPXl 1 8 

DIC 

26 

7 

I=t + l 

OIC 

27 


GO TO 10 

OIC 

28 

8 

DO 9 JJ=NPZ, N°ZL 

DIC 

29 


IS=( JJ-ll*NX+l 

OIC 

30 


CALL OISSER I X A, T ABX C 1 » , I S .NX, IDX.NPX I II > 

OIC 

31 


NPY ( I MNPXI I > 

OIC 

32 

9 

1*1+1 

OIC 

33 

10 

00 11 LL=i,TPlZ 

QIC 

34 


NlOC*NPXaL I 

OIC 

35 


NLOCY=NPY( LL) 

OIC 

36 

1 1 

CALL LAGRAN ( X A, T ABXI NLOC 1 , T ABYF NLOC Y ) . I P 1 X, YY( LL H 

OIC 

37 


CALL LAGRAN ( Z ARG , T ABZINP Z ) , YY I 1 1 , IP1 Z , ANS > 

OIC 

38 

12 

RETURN 

OIC 

39 


END 

DIC 

40“ 
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1 DISSER .- Library subroutine used by DISCOT. 

2 

3 

k 

5 

6 

7 

8 

9 

10 

11 

12 

13 

lk 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2k 
25 


205 


NASA-Langley Form 22 (Apr 69) 



SUBROUTINE DTSSFP ( XA , TAB » I* NX . 1 0 , NPX » t>IS l 

DIMENSION T AR ( 2 ) 0IS 2 

C DIMENSION TABI2I OIS 3 

NPT = 1 0* 1 0IS * 

NPR=NPT f ?. 0TS 5 

NPU=NPT— NPB 0ls 6 

IF ( NX— NPT ) 2.1, ? 0TS 7 

1 NPX=I DIS 9 

RETURN DIS 9 

2 NL0W=l*NP8 °IS 10 

NUPP= l+NX-INPUM » D * s 11 

00 3 1 1 =NLOW « NUPP 0IS 12 

NLOC= 1 1 01$ 13 

IF ITABim-XA) 3,4.4 OIS 14 

3 CONTINUE 01S 15 

NPX*NUPP-NPB«-l °* s V 6 

RETURN OIS l 7 

t, NL = NICIC-NPB DIS 18 

NU=NL*IO dis 19 

00 5 JJ=NL»NU °* s 20 

NOT S= J J 0IS 21 

IF (TAB( JJ>-TA8( J J*m 5,6,5 OIS 22 

5 CONTINUE 0IS 23 

NPX=NL 015 24 

RETURN OIS 25 

6 l c {TAB( NDIS l-XAS 8,7,7 OIS 26 

7 NPX=ND!S-5D 0IS 27 

RETURN OIS 28 

8 NPX^NOISFl OIS 29 

RETURN DIS 30 

END OIS 31- 
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SUBROUTINE INT1A 


FORTRAN 

INT1A is a closed subroutine for the solution 
of a set of ordinary differential equations. 

The calling sequence is identical to INTI 
except that the VAR and CUVAR arrays are 
single precision. 

A general guideline for selecting the tetter 
subroutine is to use INT1A when the ELE1 
values are set to -1 x 10~ 8 or larger. In 
those cases the word length of the CDC 6000 
series computers affords adequate control 
of the rounding error without the "partial 
double precision mode of operation.” 

See INTI. 

This subroutine is identical to INTI except 
that the "partial double precision mode of 
operation" has been eliminated. 

See INTI. 

See INTI. 

INT1A 2557g locations 
NASA, LHC, Jules J. Lambiotte 

Jules J. Lambiotte 
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SUBROUTINE INTI 


LANGUAGE: FORTRAN 

PURPOSE: INTI is a closed subroutine for the solution of 

a set of ordinary differential equations, 

USE: CALL INTI ( 1 1 ,N ,NT , Cl , SPEC , CIMAX # IERR , VAR , CUVAR , 

DER , ELE1 , ELE2 , ELT , ERRVAL , DERSUB , CHSUB , ITEXT ) 

II «- INTI is composed of an initialization 
section and an integration section. 

The user is required to enter the 
initialization section before he starts 
his first integration step. The above 
calling sequence is used for both 
initialization and integration with the 
value of the code word II determining 
which of the two sections of INTI 
will be entered. 

The user must set II - 0 in order to 
initialize. 

During initialization the derivatives 
will be evaluated using the initial 
values of the variables hut no inte- 
gration will occur and control will 
be returned to the calling program. 

When INTI is called with II ; 0, 

entry is made to the integration 
section. Upon each entry to INTI, the 
subroutine stores a 1 in II so that 
the users need not supply a value of 
II > 0 for repetitive integration. 

Besides serving as a means for speci- 
fying the entry point to INTI from 
the calling program, II can also be 
set to specified values in CHSUB to 
-'accomplish t he * f oil owi ng ; 
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2 The user will store the integer 2 in II 
if the answers in CHSUB are not accept- 
able to him and he wishes to recompute 
the answers using a shorter' interval. 
This shorter interval must be stored 

by the user in Cl, It must be smaller 
than the computing interval just used, 

3 The user will store the integer 3 in II 
if he wishes to return to the calling 
program. The answers for the interval 
are considered acceptable to the user 
and will be transferred to the VAR 
array (explained below) by INTI. 

Ir- DERSUB II may be set to: 

The user will store the integer k in II 
if he wishes to discontinue calculation 
of the present interval and return to 
the calling program. On return to the 
calling program, the answers at the 
beginning of the interval will still 
be in the VAR array. 

If the user does not set II to a value in 
either CHSUB or DERSUB, II will always be 
1 upon the return to the calling program. 

N - An integer value supplied by the user 
which is the number of differential 
equations to be solved. INTI is 
compiled to solve a maximum. of 20 
equations but may be recompiled for 
larger values of N if necessary, 

NT - An integer value supplied by the user 
which is the number of values in the 
ELT block described below, INTI is 
compiled with a maximum of 10 values 
in the ELT block but may be recompiled 
for more values if necessary. 

Cl - A floating point value supplied by the 
user which is the computing interval 
INTI will use initially. Cl must be a 
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signed value, positive if integrating forward, 
negative if integrating backwards. Upon entry to 
CHSUB , Cl will contain the computing interval 
that INTI will use for the next step unless 
it has to take a short interval to hit an 
ELT value or a SPEC value described below* 

The computing interval used on the present 
step is available in CHSUB as the algebraic 
difference between CUVAR (l) and VAR (l)* 

Since the subroutine is used on a binary 
computer and the interval variation is a 
halving an^d doubling process. Cl should be 
a power of 2* 

| SPEC - A floating point value supplied by the 

user which specifies how often he wishes 
INTI to return control to the calling pro- 
gram so that the user may print his results* 

SPEC — 0*0 - Control will be returned after 

every acceptable integration step, 

SPEC > 0.0 - SPEC is the absolute value of 
the specified increment of the 
independent variable for which 
the user desires control returned 
tc the calling program* 

The first printout is made at the initial value 
of the independent variable* The next return is 
at the nonzero integer multiple of SPEC closest 
to the initial value of the independent variable. 

The remaining returns occur at values which have 
been updated from this point by the increment 
given in SPEC* The return times generated by the 
increment given in SPEC are not altered by an inter- 
vening return due to an ELT value (explained below). 

CIMAX - A floating point value supplied by the 
user which is the absolute value of the 
maximum computing interval that will be 
used. This value will be used if the 
doubling process would extend the com- 
puting interval to a value larger than 
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CIMAX. CIMAX should be set to 0.0 
If there is no desired maximum. 

IERR - An integer value supplied by INTI as 
an error code. It must be bhecked at 
every return to the calling program* 

It may have the following values: 

1 A normal return, no error* 

2 The ELT block is not monotonic in 
the direction of integration. 

3 The variables have failed to meet 
the local truncation error require- 
ments nine consecutive times. The 
answers at the beginning of the 
interval are still in the VAR array* 

4 The variables have failed to meet 
the local truncation error require- 
ments at least nine times over the 
last three intervals. An acceptable 
answer has been reached, however, 
and is in the VAR array. 

VAR - A double precision one-dimensional array 
containing the independent variable 
followed by the K dependent variables. 

The user must store the N+l initial 
values (in the double precision mode) 
in the array for initialization. INTI 
will store the new values of the variables 
in VAR after each integration step when 
they are accepted by the user in CHSUB* 

T*he elements of the VAR block can be 
printed out in the calling program in 
accordance with the user's specification 
in SPEC. 

CUVAR - A double precision one-dimensional array 
which is given values by INTI for two 
purposes. INTI will store in the same 
order, as the VAR array the values of the 
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independent, variable and N dependent 
variables at which it wishes the deriva- 
tives to be evaluated in the DERSUB 
subroutine. Although CUVAR must be in 
a double precision array in INTI to main- 
tain the "partial double precision mode" 
of computation, the evaluation of the 
derivatives should be in single precision. 
Two suggested ways of doing this are as 
follows : (l) Consider CUVAR as a single 

precision array of 2(K+l) elements in the 
DERSUB subroutine and when using the ith 
element in a computation subscript it 
with the value (2i-l). (2) At the begin- 

ir.g of the DERSUB subroutine, transfer 
from CUVAR to some newly defined single 
precision array and evaluate the deriva- 
tives using the latter. 


INTI will also store the tentative answers 
after each integration in the CUVAR array 
before calling CHSUB so that the user can 
check these values to decide to accept or 
reject the answers. If accepted, the CUVAR 
values will then be transferred to the VAR 
array. The decision as to whether the 
computation in the CHSUB subroutine should 
be done in single or double precision is a 
function of the individual application. In 
most cases single precision is adequate and 
can be accomplished by applying the above 
suggestions to the VAR and CUVAR arrays. 

No values need to be initially stored in CUVAR. 

An N+ 1 single precision array in which the 
user will store the derivatives evaluated in 
DERSUB. The derivatives should be arranged 
toy the user in DERSUB in the same order as 
the VAR block so that DER (2) will be the 
derivative of the variable stored in VAR (2), 
etc. DER (l) will be unused. The derivatives 
must be computed using values of the variables 
which have been stored in CUVAR (not VAR) 
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by INTI. To avoid unnecessary double 
•-precision computation the user should 
apply the suggestion described under 
CUVAR. 

ELE1 - A one-dimensional array of N values 
supplied l5y the user each of which 
is the upper bound of local relative 
truncation error for the respective 
dependent variables. If the error 
for any variable exceeds its respec- 
tive ELE1 value, the computing in- 
terval is halved and the integration 
restarted at the beginning of the 
present interval. If the error for 
all of the variables is less than 
1/128 of their respective ELE1 values, 
the computing interval is doubled for 
the next integration step. 

ELE2 - A one-dimensional array of N values 

supplied by the user which represents 
a small value or ’'relative zero” for 
the respective dependent variables. 

If the absolute value of any of the 
variables is less than its respective 
ELE2 value, the relative error criteria 
for that variable will not be applied. 

ELT - A one-dimensional array of NT values 
supplied by the user which are values 
of the independent variable at which 
the user specifically desires control 
returned to his program. The values 
in the ELT block must bo monotomic 
in the direction of integration or an 
error return will be given by INTI. 

ERF V AL - A one-dimensional array of N elements 
in which INTI stores an estimate of 
the local truncation error for each 
of the N dependent variables. The 
relative errors are computed from 
these values and compared with 
the specified ELE1 values. 
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DERSUB - The name of a subroutine vritten by the 
user which will be called by IHT1 to 
evaluate the derivatives. The deriva- 
tives, must be stored in the DER array. 
INTI will call DERSUB to evaluate the 
derivatives with the values of the varia- 
ble it has stored in the CUYAR array. 

These evaluations should be done using 
single precision arithmetic. The name 
given to the DERSUB subroutine must 
appear in an EXTERNAL statement in the 
calling program. The user may return 
to the calling program by setting II 
to h . 

CHSUB - The name of a subroutine written by the 
user to allow certain logical control. 
After each integration step, INTI will 
make available to the user in CHSUB the 
tentative answers in the CUVAR array. 

The VAR array will contain the last 
accepted answer (that is, the value of 
the variables at the beginning of the 
interval). Whenever the user specifies 
the answers are acceptable, the values 
in the CUYAR block are transferred to the 
VAR block. In CHSUB the DER block will 
contain the values of the derivatives 
evaluated with the present CUVAR block. 

The user has three options: 

1. Not change II. II * 1 is considered 
by INTI to denote that the user has 
accepted the answers in the CUYAR 
block. II always equals 1 upon 
entry to CHSUB from INTI. 

2. Set II - 2. The user does not accept 
the answers and wishes to recompute 
the interval using a new computing 
interval which he stores in Cl. , This 
computing interval must be smaller 
than the computing interval Just used. 
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This nev value of Cl will now he 
stored by INTI as the normal com- 
puting interval for the subsequent 
integration steps, 

3* Set II - 3. The user accepts the 
answer but wishes to denote a con- 
dition that he can test in the 
calling program. Control will be 
returned to the calling program with 
the answers in the CUVAR array trans- 
ferred to the VAR array. 

The name given to the CHSUB subroutine 
must appear in an EXTERNAL statement 
in the calling program. 

ITEXT - An integer code word supplied by the user 
which gives him the option to have INTI 
print out a time history of the computing 
interval and the reasons for its variation. 
This print out should be requested only 
for problems which must be rerun due to 
unsatisfactory results the first time. 

ITEXT =0 No printout requested ' 

ITEXT =1 A printout requested 

RESTRICTIONS: See arguments listed under CALL statement. 

METHOD: INTI, written in coordination with the 

other integration subroutines in the lNT(x) 
common usage series, is a fifth-order integra- 
tion subroutine. The classical fourth-order 
Runge-Kutta formula in applied in conjunction 
with Richardson 1 s Extrapolation to the 
Limit Theory, INTI is a variable interval 
size routine in which the interval is varied 
to meet a specified local relative trunca- 
tion error, 

ACCURACY: The variable interval size mode of logic is 

Used to make available an estimate of the 
local relative truncation error which is 
then controlled as explained in the ELE1 
block discussion. 
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* r> 


c 


c 


c 


1 


2 

3 


C 


SUBROUTINE INTI A C II,N,NT,CI »SPEC »C IMA*, TERR , V AR, CUV AR, OER ,EL El » EL INT 
1 E 2 , FLT, ERRV AL»DER SUB.CHSUB ,1 TEXT ) INT 

*** DOCUMENT DATE 08 - 01-68 SUBROUTINE REVISED 08 - 01-68 ***#*****INT 
DIMENSION SIVARI 20 ), SELE 1 I 20 ), ELE 1 I 20 I, ELE 2 I 20 K DfcR< 2 l), FOERVINT 
1 ( 21 ), SD Y( 20 ) * SDY 1 I 20 ), Y!NCR(? 0 >, EPRVALI 20 J. ERV 3 VHI 20 ), ELTUOINT 
2 )* SELT ( 13 ), RELM TNI 20 I , STEP! 3 ) INT 

DIMENSION VARI 21 1 , CUVAR 121 ) INT 

INTEGER TEXl 151 INT 

INTEGER CODE, TPSH, SUMHAF , STEP, TEST, DCODE INT 

REAL K 1 INT 

BEGIN INITIALIZATION INT 

IF I TI.GT.O) GO TO 19 INT 

TP =0 INT 

SSPEC=SIGN( SPEC ,CI ) INT 

SCIMAX^S IGNICIMAX.CU INT 

VAR 1 = VAR 11 ) INT 

IF (CT.EO.O.O) GO TO 18 INT 

IF I SSPFC.EQ.O.O) GO TO 4 INT 

IF <ABS(SCtNAX>.GT.A 8 S(SSPEC 1 .OR.SCIMAX.EO.O.OJ SCIMAX=SSPEC INT 

TEST TO SEF IF VAR IS ZERO INT 

IF ( ARS ( VAR l I ,GT . l.OE-ill GO TO l INT 

TP=SSPEC INT 

GO TO 4 INT 

IF UVAR 1 /SSPECJ.GT. 1 .E- 13 ) GO TO 2 INT 

Kl= 0.0 INT 

GO TO 3 INT 

Kl= l .0 INT 

TP=VAR 1 — AMODl VAP 1 » SSPEC ) INT 

IF I ABS( TP-VAR 1 ) .LT, l.E- 12 ) Kl* 1.0 INT 

T»=TP,K 1 *SSPEC INT 

IF IABSMTP-VAR 11 ZVAR 1 KLT.I.E- 1 U TP=TP*SPEC INT 

TEST FOR DIRECTION OF INTEGRATION INT 

K 1 = l » 0 INT 

IF (Cl. LT. 0.01 Kl=-l.O INT 

C IK =C I*K 1 INT 

CIMAXK-SCIMAX*K 1 INT 

TPK = TP*K 1 INT 

VARK- VAR 1 *K 1 INT 

SFT UP STORAGE FOR INTERNAL USE INT 

NPl=N*t INT 

NELT =1 INT 

RFM 6 IN= 0»0 INT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 
17 
IS 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
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co Cr 


NHAF*0 
NTS-NT 
SU«HAF=0 
L00P=0 
nn 5 l*=l #3 

5 <;TEP<n*o 
TER«*1 

DO 6 1=1 *NP 1 

6 CUV AR C t I =VAR ( II 
DO 7 1*1, N 

7 SFLE1U I “ELFim 
IP (NT.EO.O) GO TO ll 
IF ( NT* EO.l) GO TO 9 
NTMl=NT-l 
EL TK-Kl *FLT (11 
DO 8 T« l * NTM1 
FLTK2=K1*ELT< m ) 

IF (ElTK.lT.ELTK?) GO TO R 
GO TO 97 

fltk^fltkz 
CONTINUE 

EL TK = Kl* ELT t NELTI 
IF (VARK*LT.ELTK| GO TO 10 
IF (NELT.EO-NTI GO TO 11 
NFL T=N£LT >1 
GO TO 9 

10 N c LTL=NT-NELT+l 
GO TO 12 

11 NELTL^O 

12 DO 13 t* It N 

13 °ELMINH &*$ P LEH 1 ) / 128 «0 
IF <NT.EQ.OI GO TO 15 

DO 14 1= l * NT 

14 SELT(n=ELim 

15 CALL DERSUB 

IF UUEO'*> GO TO 87 

DO 16 1*1 *N 

16 FOERVU >*OERI !♦! ) 

II- 1 

TEST=0 

DO 17 I * i 1 1 5 

17 TEX <11*0 
TEX(ll*l 


I NT 

43 

I NT 

44 

INT 

45 

INT 

46 

INT 

47 

INT 

48 

INT 

49 

INT 

50 

INT 

51 

INT 

52 

INT 

53 

INT 

54 

INT 

55 

INT 

56 

INT 

57 

INT 

58 

INT 

59 

INT 

60 

INT 

61 

INT 

62 

INT 

63 

INT 

64 

INT 

65 

INT 

66 

INT 

67 

INT 

68 

INT 

69 

INT 

70 

INT 

71 

INT 

72 

INT 

73 

INT 

74 

INT 

75 

INT 

76 

TNT 

77 

INT 

78 

INT 

79 

INT 

80 

INT 

81 

INT 

82 

INT 

83 

INT 

84 

INT 

85 
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18 


C 

19 


20 


21 

22 

23 

24 


25 


C 

26 


C 

71 


TFX(?) = 1 
KK3* 1 

IF UTEXT) 93*83*93 
PRINT 100 
ST OP 

ENO OF INITIALIZATION 

n*i 
TP SH-0 
LTSH-Q 

VARK-VAR (U*KI 
CIK-CI*K1 
Sl= VARK+C IK 

IP t SSPEC* EQ*0 *0 ) GO TO 28 
KK = 1 

IF <NELTL.EQ.OI GO TO 21 
IF IELTK-TPK) 20*20*21 
CV^FLTK 

cone*i 
GO TO 22 
CV-TPK 
C0DE=2 

IF ( ABS I CV ) • LT» l . F— 1 2 \ GO TO 27 

TF ICV-SU 24*24*23 

IF (ABSKCV-SU/CVI .gf..ie~ui go to 

if INELTl.EQ.O* GO to 25 

IF UB$< (ELTK-TPK 1/CVI.LT..IE-IM GO 

if tcaoE.Fo.n go to 32 

OX^TP-VARm 

TEXt 5>*1 

TPsTP+SSPEC 

tpk«tp*k 1 

TPSH=1 
GO TO 37 

SHORT INTERVAL DUE TO BOTH 

TP*TP*SSPEC 

TEX 16 1* l 

T PK*TP* K 1 

TPSH* l 

GO TO 32 

IF HERE CV IS LIKELY ZERO 
IF (SULT.-1.0F-121 GO TO 36 
IF 1C0DE.EQ.1) GO TO 26 
IF INELTL.EQ.O) GO TO 25 



INT 

86 


I NT 

87 


INT 

SB 


INT 

89 


INT 

90 


INT 

91 


INT 

92 


INT 

93 


INT 

94 


INT 

95 


INT 

96 


INT 

97 


INT 

98 


INT 

99 


INT 

100 


INT 

101 


INT 

102 


INT 

103 


INT 

104 


INT 

105 

r* 

INT 

106 


INT 

107 


INT 

108 

36 

INT 

109 


INT 

110 

TO 26 

INT 

111 


INT 

112 


INT 

113 


INT 

114 


INT 

115 


INT 

116 


INT 

1 17 


INT 

118 


INT 

119 


INT 

120 


INT 

121 


INT 

122 


INT 

123 


INT 

124 


INT 

125 


INT 

126 


INT 

127 


INT 

128 
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IF ( A BS f ELTK I.LT.1.0E— 121 GO TO 26 

INT 

129 


GO TO 25 

INT 

130 

c 

SPEC IS ZERO 

INT 

131 

28 

IF <ABS(REMAIN» .GT..1E-11 » GO TO 34 

INT 

132 


IF ( NEL T L • EQ • 0 ( GO TO 33 

INT 

133 

29 

IF ( ABS< ELTKl .GE. l.E-12) GO TO 30 

INT 

134 


IF (Sl.LT.-l ,0E-12» GO TO 33 

[NT 

135 


GO TO 32 

INT 

136 

30 

S2=ELTK-S1 

INT 

137 


IF (SZ> 32,32,31 

INT 

138 

31 

IF <ABS< S2/ELTK 1 .LT.I.0E-12I GO TO 32 

INT 

139 

GO TO 33 

INT 

140 

C 

short int fr v al is due to elt block 

INT 

141 

32 

OELT=SELT(NFLT 5 

INT 

142 


TEXI41- L 

INT 

143 


OX®OELT-VAR ( l I 

INT 

144 


REM A IN*C I-OX 

TNT 

145 


remaik=remain*ki 

INT 

146 


LT5H=1 

INT 

147 


NEIT = NELTH 

INT 

148 


neitl=neltl-i 

INT 

149 


IF (NFLTL.EO.OI GO TO 37 

INT 

150 


ELTK=K1*SELTINELT) 

INT 

151 


GO TO 37 

INT 

152 

33 

nx=ci 

INT 

153 


TFX (3 N1 

INT 

154 


GO TO 37 

INT 

155 

34 

I c (NELTL.EO.O) GO TO 35 

INT 

156 


IF (FLTK.LT. (VARK+REMATKI 1 GO TO 29 

INT 

157 

35 

OX=RFMA!N 

INT 

158 


TEX(7»=l 

INT 

159 


RFMAIN=0.0 

INT 

160 


GO TO 37 

INT 

161 

36 

nx=c I 

INT 

162 


TEX( 31=1 

INT 

163 


TEST= 1 

INT 

164 


GO TO 38 

INT 

165 

C 


INT 

166 

C 

begin RUNGE-KUTTA 

INT 

167 

C 


INT 

168 

37 

test=o 

INT 

169 

38 

00 39 1=1, N 

INT 

170 

39 

SIVAR(I >=VARC IMI 

INT 

171 
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40 

CUVAR ( 1 1 =VAR t 1) 

INT 

172 

41 

00 42 1 = 1, N 

tNT 

173 


SOY ( I 1=DER1 1*11 

INT 

174 

42 

CUVAR! I + 1)*SIVAPI I l+(DX*OER( [ + 111/ 2.0 

INT 

175 


CUVAR (1 1 =CUVAR l l* +0X/2.0 

INT 

176 


CALL OCR SUB 

INT 

177 


IF (U.EQ.4I GO TO 87 

tNT 

178 


no A? 1 = 1, N 

INT 

174 


SOY ( I |=SOY( T J +2.0*OER(I+1 1 

INT 

1 BO 

43 

cuvapii+i >*sivap ( r i +(dx*deri i + u >/2.o 

INT 

181 


CALL OERSUB 

INT 

182 


IF (II.E0.41 GO TO 07 

INT 

183 


no 44 I = 1 » N 

INT 

184 


SOY(I)=SOY(l J+2.0*0ER( mi 

INT 

185 

44 

CUVAR I 1+11=$1VAR< I 1 +OX*DER II *1 1 

INT 

186 


CUVAR U»=CUVAR( 1 1 +0X/2.0 

INT 

187 


CALL OERSUB 

INT 

188 


IF I I I.E0.41 GO TO 87 

INT 

189 


DO 45 l = l,N 

INT 

190 


SOYt T | = | SOYt 1 1 +0E R ( 1 + 111/6.0 

INT 

191 

45 

CONTINUE 

INT 

192 


IF I LOOP 1 46,46,49 

INT 

193 

46 

00 47 1=1. N 

INT 

194 


SOY 1 1 1 1 * SOY ( 11 

INT 

195 


YINCRI I 1=0.0 

INT 

196 

47 

0ERU+1J=F0ERVU1 

INT 

197 


DX=DX/2 .0 

INT 

198 


LOOP= l 

INT 

199 


GO TO 40 

INT 

200 

C 


INT 

201 

c 

LOOP WAS NOT ZERO 

INT 

202 

c 


INT 

203 

48 

00 49 1=1, N 

INT 

204 

49 

YTNCRU 1 =YINCR ( I1+S0YI 11 

INT 

205 


IF (LOOP. EO. 21 GO TO 51 

INT 

206 


00 50 1=1, N 

INT 

207 


S1VARII >=VAR( I+11+DX*YINCR(I 1 

INT 

208 

50 

CUVARU + U=S1VAR ( l 1 

INT 

209 


CUVAR ( 1 1 -VARI11+DX 

INT 

210 


LOOP=2 

INT 

211 


CALL OERSUB 

INT 

212 


IF I II.E0.41 GO TO 07 

INT 

213 


GO TO 41 

INT 

214 
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nooji 


51 


2 


53 

54 


55 

56 

57 


58 

59 

60 
61 


62 


C 

C 

63 


L00P=0 

I NT 

215 

H=2.0*T)X 

I NT 

216 

oo 52 i = i»n 

INT 

217 

ERVOVHl I »=1YINCPI I > /2.0-SDYK ! ») /15.0 

I NT 

218 

ERRVAU I I=H#ERV0VH( I 1 

TNT 

219 

SlVARt! ) =S1 VAR ( I I +DX*SDY( I HER RV AH U 

TNT 

220 


INT 

22! 

S1VAR MOLD THE APPROXIMATE ANSWERS 

INT 

222 


TNT 

223 

IE ISCIMAXI 53 s 54 » 53 

TNT 

2 24 

IF (APS<SCIMAX-Cn.LT.1.0E-l2* GO TO 55 

INT 

225 

IF ( A8S( H-CII .GT. 1.0E-12 > GO TO 55 

TNT 

226 

DC00E=0 

INT 

227 

GO TO 56 

INT. 

223 

DC0DF=l 

INT 

229 

CONTINUE 

TNT 

230 

1 = 0 

INT 

231 

1=1+1 

TNT 

232 

IF (I.GT.NI GO TO 58 

INT 

233 

IF (ABS<$lVAftm».LT.ElE2<m GO TO 57 

INT 

234 

P EL ER = ABS (ERRVAU I I/SIVARH) I 

INT 

235 

IF (PEIEP.GT.SELEH !») GO TO 63 

INT 

236 

IF (RELER.GT.RELMINUn OCOOE=I 

TNT 

237 

GO TO 5T 

INT 

238 

CONTINUE 

INT 

239 

IF (DCODE-U 59,78.59 

INT 

240 

CONTINUE 

INT 

24t 

IF ISSPCO 62.60,62 

TNT 

242 

IF ISCIMAXS 62.61,62 

INT 

243 

C ! = 2 . 0*C I 

INT 

244 

TFXI 3)«1 

TNT 

245 

NHAF=NH AF-l 

INT 

246 

GO TO 78 

TNT 

247 

IF (?.0*A8S(Cf I.LE.ARS(SCIttAX) ) GO TO 61 

INT 

248 

Cl=SCIM4X 

INT 

249 

TEX ( 8 1= 1 

INT 

250 

GO TO 78 

INT 

251 


INT 

252 

H4LF INTERVAL 

INT 

253 

NHAE=NHAF+l 

INT 

254 

TEX ( 9J= 1 

INT 

255 

NV4P.= 1+ l 

INT 

256 

IF f NHAF-8 S 64,64,98 

TNT 

257 
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64 


IF ( LTSH.EQ.O I GO TO 65 
TEST»1 
LTSH=0 
NELT=NELT-l 
NELTL*NELTL*l 
ELTK=K1*SELT<NELT) 

RFM AIN=0.0 

65 IF (TPSH.EQ.Ol GO TO 66 

TEST* l 

tp=tp-sspec 

TPK=K1*TP 

TPSH=0 

66 IF t SSPEC.NE.O.OI GO TO 67 

TFST*0 

IF UBSICr-2.0*DXI.GT.l.E-l2 I GO 

67 CI=OX 

60 0X-0X/2.0 

C TK=K 1*C I 
DO 69 l * l »N 
S1VAP(!I=VAR( 1*1 I 
OFF ( I ♦ 1 1 “FOERVt I I 
SOYH 1 1= YINCR ( I l-SDYl I I 

69 YINCR<It=0.0 
KK 3 = 2 

IF tITEXT.EO.il GO TO 94 

70 LO0P=l 
GO TO 40 

71 CONTINUE 

IF INHAF.GT.il GO TO 68 
NTS=NTS* l 

IF (NTS . GT . 1 3 I GO TO 67 
ACV=VAR t 1 1 *C I 
ACVK=ACV*K1 

IF (NELTL.EO.OI GO TO 73 
NLT=NFLT 

72 ELTKl=SELTINLTI*Kl 

IF ( ACVK.LT.ELTK II GO TO 74 

NLT=NLT*1 

IF ( NLT.EO.NTS I GO TO 76 
GO TO 72 

73 SELT ( NELT 1= ACV 
GO TO 77 

74 NLTP1=NLT+1 


INT 258 
INT 259 
INT 260 
INT 261 
INT 262 
INT 263 
INT 264 
INT 265 
INT 266 
INT 267 
INT 268 
INT 269 
INT 270 
INT 271 

TO 71 INT 272 

INT 273 
INT 274 
INT 275 
INT 276 
INT 277 
INT 278 
INT 279 
INT 280 
INT 281 
INT 282 
INT 283 
INT 284 
INT 285 
INT 286 
INT 287 
INT 288 
INT 289 
INT 290 
INT 291 
INT 292 
INT 293 
INT 294 
INT 295 
INT 296 
INT 297 
tNT 298 
INT 299 
INT 300 
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l=NT$ 

I NT 

301 

75 

SELT t [l = SELTU-l > 

I NT 

302 


TF tl.EO.NLTPl) GO TO 76 

I NT 

303 


1=1-1 

TNT 

306 


GO TO 75 

!NT 

305 

76 

SELT ( NLT >=ACV 

! NT 

306 

77 

NFL TL=NELTL* 1 

TNT 

307 


TFXJ9 t=0 

J NT 

308 


TEX( 101 = 1 

TNT 

309 


FLTK=K1 *SELT ( NELT 1 

I NT 

310 


GO TO 68 

TNT 

311 

C 


I NT 

312 

C 

DOUBLE PRECISHON UPDATING 

INT 

313 

c 


TNT 

316 

78 

L00P=0 

TNT 

315 


OH=H 

INT 

316 


DO 79 I = 1 » N 

INT 

317 


PHI=ERVO VH( I M-YINCRU J/2.0 

TNT 

310 


rjPMi = PHI 

INT 

3X9 

79 

CUV AR (1*1 )=VAR I l>II *OH*OPHf 

INT 

320 


CUVAR Cl> =VAR ( l ) +0H 

TNT 

321 


CALL OERSUB 

TNT 

322 


IF ( II.E0.4I GO TO 87 

t NT 

323 


CALL CHSUB 

INT 

326 


TF (II-2J 81,88,80 

INT 

325 

80 

TF ST = 0 

INT 

3 26 

81 

00 82 1*1, N 

TNT 

327 

82 

FOERVfl ) =OEP ( HH» 

TNT 

328 


SUMHAFsSUMHAFt-NHAF-STEPf 11 

INT 

329 


STEP! ll*STEP(2) 

TNT 

330 


STEP ( 21 = STEP ( 3 1 

INT 

331 


STEPI3) =NHAF 

INT 

332 


NHAF*0 

INT 

333 


IFRR=l 

INT 

336 


IF ISUMHAF-81 83,83,99 

INT 

335 

83 

on 84 1=1, NP l 

INT 

336 

86 

V AR ( I !=CUVAR! 1 1 

INT 

337 


TEX ( 121=1 

INT 

338 

85 

KK 3 = 4 

INT 

339 


IF ( ITEXT.EQ.l > GO TO 94 

INT 

360 

86 

IF ITEST.EO.il GO TO 19 

INT 

361 

87 

RETURN 

INT 

362 

C 


INT 

363 


2 2k 



c RECOMPUTE INTERVAL 

Q 

88 TESTsO , 

NHAF=0 

1 1 =1 
0X = CI 
TEXlin-l 
KK3*3 

IF ( ITEXT.EO.l) GO TO 92 

89 CIK=CI*Kl 
00 90 I = 1 , N 

OER <1*11 =FOER V I 1 1 

90 CUVARm*VAR(II i 

CUVAR IN*1 1 *VAR ( N* 1 1 

IF (TPSH.EO.O) GO TO 9| 

TP =TP-SPFC 
TPK»TP*Kl 

tp$h=o 

91 IF (LTSH.EO.O) GO TO 38 

NEL T=NELT— 1 
PEMAIN=0.0 
NELTL=NELTLH 
ELTK^SELTINELT l 

GO TO 38 

92 PRtNT ll3i VARUt'DX 
GO TO 95 

93 if (TFxm.eo.n print ioi, vari n 

T c (TEX (2I.E0.il PRINT 102, Cl ,C l MAX, SPEC 

94 IF <TEX(3I.EQ.l) PRINT 103 

IF (TEXI4l.E0.il PRINT 104, H 
IF (TEX I 5l.E0.il PRINT 105, H 
IF (TEX(6I .EO.l ) PRINT L06, H 
IF (TEX (7l.E0.il PRINT 114, H 
IF ( TEX I8l.E0.il PRINT 107, C! 

IF ( TEX l 9 I .EO » 1 1 PRINT 108, NVAR.Cl 
IF ( TEX ( 101.E0.il PRINT 115, NVAR.OX 
IF (TEX? ill. EO. 11 PRINT 113, VAR til, OX 
IF ( TEX 1121. EO.l 1 PRINT 109, VAR (11 
IF ( T£X( 13) . EO. 1 1 PRINT 110 
IF ( TEX (141.E0.il PRINT 111 
IF (TEXC151.E0.il PRINT 112 

95 00 96 1=3,13 

96 TEX(1)*0 


l NT 344 
I NT 345 
INT 346 
I NT 347 
INT 348 
INT 349 
INT 350 
INT 351 
INT 352 
INT 353 
INT 354 
INT 355 
INT 356 
INT 357 
INT 358 
INT 359 
INT 360 
INT 361 
INT 362 
INT 363 
INT 364 
INT 365 
INT 366 
INT 367 
INT 368 
INT 369 
INT 370 
INT 371 
INT 372 
INT 373 
INT 374 
TNT 375 
INT 376 
INT 377 
INT 378 
INT 379 
INT 380 
INT 381 
INT 382 
INT 383 
INT 384 
INT 385 
INT 386 
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GO TO <87, 70,89. 96), *K3 


INT 

38 7 

97 

I ERR =2 


INT 

388 


TEX( l 3» » l 


INT 

389 


TFST=0 


INT 

390 


GO TO 83 


INT 

391 

90 

IERR=3 


INT 

392 


TEX ( 151=1 


INT 

39 3 


TE$T=0 


INT 

394 


GO TO 85 


TNT 

39 5 

99 

IFRR=4 


INT 

396 


TE$T=0 


INT 

397 


TEX<16» = 1 


INT 

398 


GO TO 83 


INT 

399 

c 



INT 

400 

c 



INT 

401 

1 00 

FORMAT <//llH Cl IS ZFROI 


INI 

402 

101 

FORMAT J 33H INITIALIZATION STARTS AT V AR 1 H = , £1 6. 8/1 

INT 

403 

102 

FORMAT ( C 1 = * El 5 . 8 »9H Cl MAX* , E15.8.8H SPEC® , 61 5.8/1 

INT 

404 

103 

FORMAT I 37H OX IS THE FULL COMPUTING INTERVAL CA/J 


INT 

405 

104 

FORMAT I28H OX IS A SHORTENED INTERVAL ,E15.3,25H 

DUE TO A CRITIC INI 

406 


IAL VALUE / 1 


INT 

40 7 

105 

FORMAT I 28H OX IS A SHORTENED INTERVAL .E15.8.2LH 

OUE TO A SPEC 

VINT 

408 


1ALUE/I 


INT 

409 

106 

FORMAT I 28H OX IS A SHORTENED INTERVAL ,E15.8,39H 

DUE TO BOTH A 

SINT 

410 


l P EC AND CRITICAL VALUE/I 


INT 

411 

107 

«=ORMAT I2TH Cl HAS BEFN LENGTHENED TO ,E16.8/I 


INT 

412 

108 

FORMAT ( 5H VAR1 ,12 , 32H1 HAS CAUSED Cl TO BE HALVED 

TO ,616.8/1 

INT 

413 

109 

FORMAT < 27H VAR(1> HAS BEEN UPDATED TD,E16.8,/> 


INT 

414 

110 

FORMAT (31H ERROR RETURN-ELT NOT MONOTONTC/I 


INT 

415 

111 

FORMAT I55H ERROR RETURN- HAVE HALVEO 5 TIMES OVER I 

LAST 3 INTERVALS INT 

416 


l/> 


INT 

417 

112 

FORMAT U5H ERROR RETURN-HAVE HALVED 9 CONSECUTIVE 

T E Mfc S / » 

INT 

418 

1 13 

FORMAT (31H INTERVAL RECOMPUTED AT V AR(U = , E 16. 8 , 9H WITH 0X*,E16 

.BINT 

419 


1/ ) 


INT 

420 

1 14 

FORMAT (25H OX IS SHORTENED INTERVAL , E 16.8, 28H DUE 

TO A PREVIOUS 

PINT 

421 


1LT VALUE /» 


INT 

422 

115 

FORMAT 1 5H VAR(,I2,32H> HAS CAUSFD OX TO BE HALVED 

TO ,fcl6.8,38H 

BINT 

423 


I UT NOT Cl SINCE Cl ALREADY SHORTENED/) 


INT 

424 


END 


TNT 

4 25< 
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IAGRM . - Library subroutine used by DISCOT. 


2 ' ; 

\ 

3 

4 

5 

6 

7 

8 

9 

10 i 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

2 5 227 


NASA- Langley Form 22 (Apr 69 ) 




SUBROUTINE L AGQ AN ( XA , X, Y , N, ANS J 

LAG 

i 


OIMENSION X{2>, Y f 2 I 

LAG 

2 

c 

D (MEN SION XI 2> ,Yt 21 

LAG 

3 


SUM=0#0 

LAG 

4 


DO 3 1=1, N 

LAG 

5 


PROD= Y( T ) 

LAG 

6 


DO 2 J= 1 ,N 

LAG 

7 


a=x m-xc j> 

LAG 

3 


IP (AS 1,2,1 

LAG 

9 

l 

XA-X ( j))/ A 

LAG 

10 


PRGO=PROO*B 

LAG 

11 

7 

CONTINUE 

LAG 

12 

3 

SUM- SUM f PR 00 

LAG 

13 


ANS = SUM 

LAG 

14 


UPTURN 

LAG 

15 


END 

LAG 

1 6- 
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LF-VGAUSS 


1 Identification: 

2 FORTRAN IV Coded 


3 Purpose: 

k 

5 Restrictions: 

6 

7 

8 
9 

Usage: 

1 1 

where 

12 

13 

lb 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2k 
25 


To compute the integrals /' b F. (x) dx 

! a i 

for i - 1, 2, 3, , number. 

i 

An EXTERNAL statement for the name of the subprogram, 

FUNC (x, FOFX) , must appear in the calling program. If 
values other than x and FOFX are needed in FUNC, they may 
be transmitted via COMMON. FOFX (NOFX) and SUM(NOFX) must 
be dimensioned in the calling program. 

Call VGAUSS (A, B, N, SUM, FUNC, FOFX, NOFX, K) 

A - Lower Limit of integration 
E - upper limit of integration 

N - An integer used to divide the interval (a, b) 

The interval (a, b) is divided into N equal intervals 
and a K-point quadrature is performed on each of the 
intervals . 

SUM(NOFX) - One dimensional array for answers 
FUNC (x, FOFX) - Name of subprogram which evaluates F,( x)- 
(Only two arguments in list.) 

FOFX(NOFX) - One-dimensional array for the functions e~ 
valuated in FUNC . 

NOFX - The number of functions to be evaluated 
K - An integer which determines the quadrature formula 

the routine will use. K may equal 3, 4, 10, 16, 32. 
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1 Accuracy: 

2 

5 Method: 

4 

5 

6 

7 

8 Storage : 

9 
10 
11 
12 
15 

14 

15 

16 

17 

18 

19 

20 
21 
22 
25 

24 

25 


The routine is at least as accurate as Simpson's rule. 

The accuracy depends on N and K. 

Gauss Quadrature Method: This technique gives the most 

accurate quadrature formula for a given number of ordinates. 
The interval {a, b) is subdivided into K * N intervals. 

Thus, if N is 5 and K is 10, the number of points used 
to calculate the integral is 50. 

364 Octal 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r. 

c 


c 

i 


2 


SUBROUTINE VGAUSS ( A* B*N, SUM ,FUNC t FOE X * NQF X* K) VGS 1 

VGS 2 

SUBROUTINE TO USE VARIABLE GAUSSIAN WEIGHTING VALUES VGS 3 

A * LOWER LIMIT OF INTEGRATION VGS 4 

B - UPPER LIMIT OF INTEGRATION VGS 5 

N = INTEGER TO GIVE NO . OF INTERVALS, I . I «= N * K VGS 6 

SUM | NOPX ) * ANSWER ARRAY, ON RETURN * 0, IF A=6* VGS 7 

FUNC - NAME OF ROUTINE* TYPED EXTERNAL * TU SOLVt FIX) VGS 3 

FOFXCNOFXJ - ARRAY OF FUNCTIONS EVALUATED AT X I ft FUNC VGS 9 

NOFX = THE NUMBER OF FUNCTIONS TO 9E INTEGRATED VGS 10 

K = INTEGER TO CHOOSE WEIGHTING TABLE VGS 11 

* 0,4,5*6,7,8*9*10.16, OR 3? VGS 12 

VGS 13 

DIMENSION U( 52 ) , R(52), ITAfUAI* FOFX(NOFX), SUM(NOFXJ VGS 14 

VGS 15 


DATA tUC I ), 1 = 1,52 ) / 3 .5 * . i l 27 0166* . 3303394 7, * 0b94i L84 4* Jo 5 , . 2307653 VGS 16 

14. . 04 69 10 07 7**38069 04 0,« I 693 9530 * . 033 765 2 4 2 ,0 *5 * . 2 5 7 07 742 * . 1 292 344VGS 17 
20* .025446043*. 408 28267*. 2 372 3379*. 10166676,. Ji 9b 5 5 J7 i * J . 5 , . 3 3 78 732 VGS 18 
3 3*. 19331423, . 0319 34446 ,.0 159 19380, * 425562 33, .2633023 0*„ 16029521, .OVGS 19 
467463316* .0130467 35, .4524 9 37 4, . 3 59 1 98 22 , . 2 70991 o 1 * . 1 91 J 6 1 37 * . 1 2 229VGS 2 0 

5 7 7 9*. 067 1 84393 *.027712483 , .0052995325 * .47 5 94oi 6 * .<+27 76401, .3803563 VGS 21 

bl * .3 3406 569, .239 3 2436* .24655 004, . 20614212, . I6a4 7 7db, . I 3390894* . 102 VGS 2 2 
7 75310,. 075316193, .051339422, .032546962 *.017618072* . J J 7 1 942 442 , . 001 VGS 23 
83680690/ VGS 24 

DATA (R f f I ,T = 1 *5? I /. 22 22 22 22,. 27 7 7 77 7 7 *.3 2 60 72b 7* . 17 392 742*. 14 2 222 VGS 2 5 
12?* .2 39 3143 3* .11846344*. 23 39 56 96, .19038070*. 085ob224 6* . I 044 8979, . 1 VGS 26 

2 9 091502* . 13985269 ,.064742483 * * 191341 99 , „ 1 569 5332 * • U 119051,. 0506 14 VGS 27 

3 26 8* .082 559838* . 15617353* . 1 30 30534 * . 0 903 240 80* . U4063 7194, . 14776211 VGS 28 

4* . i 3463335,* 1 39 54 3 1 8 074 725 67 4, . 0333356 72, . 09472r>3J 5* * 09 1 30 1 707 , . VGS 29 

50 04578259* .074797 994. .062 3144 85* . 04 75 797 5 5 * . 03 U2t> 76 l * . 013576 2 29* . VGS 30 

6 04 8 27 0044, .0478 19 360*. 0469 22 199, . 1455 86939 , . 043 82 604 6 * * 04 1 655 96 2 , * VGS 31 
70390969 4 7, . 0 361 72 89 7 * . 03 29 1 1 111*. 029342 04 6*. 02549902 9, <, 0 21417949 , . VGS 3 2 

8017136931. . 312696332. .0081371973*. 3035 J9305Q/ ,< I T Ab ( U * I = l , 8 ) /O , 2 ♦ VGS 3 3 


94,7, 10. 14, IS. 73/ 

VGS 

34 


VGS 

35 

DO 1 LM.NOFX 

VGS 

36 

$UM<U = 0.0 

VGS 

37 

IF IA.EO.BI RETURN 

VGS 

36 

NN=(K*l )/2 

VGS 

39 

IF IK- 16 I 2,3.4 

VGS 

40 

J=ITA0(K-2 | 

VGS 

41 

GO TO 5 

VGS 

42 
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3 


J = 28 

VGS 

43 

GO TO 5 

VGS 

44 

1=36 

VGS 

45 

F [N£ = N 

VGS 

46 

OELTA=FINE/( B- A 1 

VGS 

47 

DO 7 KK=l,N 

VGS 

48 

XT=KK— 1 

VGS 

49 

FINF=A*XI/DELTa 

VGS 

50 

00 6 [=t.NN 

VGS 

51 

LR8=T*J 

VGS 

52 

‘J'J=U< LRB ) /DELTA *F INC 

VGS 

53 

CALL FUMC (UU,F0FX| 

VGS 

54 

DO 6 J&*t,NOFX 

VGS 

55 

SUM< JB)«R{LR8)*FOFX( JB»*SUM< JR 1 

VGS 

56 

DO 7 JJ= 1»NN 

VGS 

57 

LRB= J J* J 

VGS 

58 

(JU=. (1.0-U( LRB >) /DELTA +FINE 

VGS 

59 

CALL FUNC (UU»FPFX) 

VGS 

60 

00 7 JB= 1 1 NOF X 

VGS 

61 

SIJM i JB)*RaRS)RFOFX( JBKSUM5 JBi 

VGS 

62 

00 8 NX= ltNOFX 

VGS 

63 

SUM (NX>=SUMI NX I/DELTA 

VGS 

64 

RETURN 

VGS 

65 

END 

VGS 

66- 
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